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Liebe Leser der CPU! 


Diese Ausgabe von CPU ist, bedingt durch den Verlagswechsel dieses Titels, kurzfristig 
vom Team des Tronic- Verlages gestaltet worden. Die recht knappe Zeit, die uns zur 
Herstellung dieser Ausgabe zur Verfügung stand, reichte nicht aus, um den gesamten 
Inhalt dieser Ausgabe optimal zu gestalten. Alle folgenden Ausgaben der CPU werden 
jedoch im immer größer werdenden Maße an die Belange der selbst programmierenden 
Anwender von Heim-, Hobby- und Personalcomputern orientiert sein. 

Sie dürfen uns glauben, daß wir keine Mühe scheuen werden, auch 1985 wieder das 
Beste für Sie zusammenzutragen. 

Über den redaktionellen Teil hinaus, der wieder eine Menge Tests von Hard- ai s auch 
Software, interessante Thematiken, Vorstellungen neuer Computer als auch reuer 
Computer- Peripherie und vieles mehr beinhalten wird, werden wir Ihnen ur.ie r den 
Rubriken CPU Utility bzw. CPU Game wieder Spitzen- Software anbieten körnen 
Zusätzlich werden in jeder Ausgabe unter CPU Toolkit interessante, von .v: z . . z: ar- 
beitete Bauanleitungen ebenso vertreten sein, wie die Rubrik CPU Pocke: 

Dies ist ein Anspruch der neuen CPU, die wir so attraktiv wie möglich gc::a - - aen, 
damit Sie uns, lieber Leser, treu bleiben. 


Hier noch eine kleine Anmerkung zum Verlagswechsel von CPl 

Zwischenzeitlich erhielten wir viele Anrufe über den Verbleib eirzc scrJze- M aracnpte 
und Datenträger oder bestellter Software, die dem bisheriger Ve^.az ae~ CPU zuge- 
sandt bzw. dort bestellt wurden. 

Wir bitten Sie, in diesem Zusammenhangzu bedenken da : * 7* -:a:glich 

die Titelrechte, nicht aber den bisherigen Verlag der Zc : . TP? I ' hat. 


Redaktion Tronic -'V- 
3444 Wehretal 1 
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Interrupt-Programmierung. 
Eine sinnvolle Assembleran- 
wendung für den C-64, die 
viele Möglichkeiten bietet 



Sprites für VC-20 + 3k. Dieses 
Programm ermöglicht das 
Setzen als auch Bewegen von 
bis zu acht Pseudo-Sprites mit 
einer Matrix von 8 x 8 bit 



Steuern Sie ein kleines Männ- 
chen namens Ohm geschickt 
zum Ziel, ohne sich selbst ein- 
zumauern 
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Textverarbeitungs-Software 
gibt es für Universalrechner 
und Systeme, die nach klassi- 
schen Vorbildern nur einem 
einzigen Aufgabenbereich 
gewidmet sind: den Textauf- 
gaben! Bleiben die Schreib- 
und Textsysteme im Wett- 
streit mit den Mikrocom- 
putern und Datenverarbei- 
tungssystemen auf der Strek- 
ke? Die eine Antwort findet 
man in der Büropraxis, die 
andere Antwort geben mit ih- 
ren Leittrends die Aussteller 
der Schreib- und Textsy- 
steme im CeBIT der Hanno- 
ver Messe '85. 

In der Büropraxis muß ver- 
mieden werden, daß sich die 
Mitarbeiter um "freie Ma- 
schinenzeiten rangeln". Dies 
gelingt am besten mit Ausrü- 
stungen, die den Aufgaben 
personell und funktionell 
fest gewidmet sind. Gehört 
zu den Aufgaben zeitweise 
auch Textverarbeitung, so ist 
ihre Mitausführung durch 
"Alleskönner- Systeme" durch- 
aus sinnvoll. Anders steht es 
bei den Millionen von Ar- 
beitsplätzen mit ständig sehr 
umfangreichen Textaufga- 
ben. Ihre besonderen Lei- 


stungs- und Qualitätsanfor- 
derungen lassen sich auch in 
Zukunft nur mit festgewid- 
meten und speziell opti- 
mierten Systemen erfüllen. 

Ebenso selbstverständlich 
liegt den Anbietern daran, 
ihren Markt durch fortschritt- 
liche Lösungen zu breitem, 
die sich aus der technischen 
Weiterentwicklung her- 
leiten. Die Mehrheit der Pro- 
duzenten und Vertriebsorga- 
nisationen schlägt dabei den 
gleichen Weg wie die Indu- 
strie für Daten-und Kommu- 
nikationstechnik ein. Den 
Weg zum universellen Sy- 
stem. den Mikroelektronik, 
junge Netzkonzepte und 
-dienste eröffnet haben. Das 
damit mobilisierbare Funk- 
tionsspektrum geht weit über 
Textverarbeitung hinaus, 
aber es bleibt in diesem 
Kerngebiet der Büroarbeit 
verwurzelt. Die universellen 
Systeme vergrößern den Ent- 
scheidungsspielraum der 
Anwender, um Lösungen 
nach Maß zu verwirklichen. 
Auch schaffen sie eine 
Menge neuer Möglichkeiten, 
um auch die Sach- und Füh- 
rungsebenen systemtech- 


nisch zu unterstützen und 
die gleichen Systemkreise zu 
integrieren. 

Die marktreifen Produkte 
und die Perspektiven spiegelt 
in dieser langfristig ange- 
legten Entwicklungsarbeit 
das CeBIT-Angebot wieder. 
Der Trend zur universellen 
Technik äußert sich schon 
bei den elektronischen 
Schreibsystemen in Form 
anpassungs- und hochrü- 
stungsfähiger Baustein-Fa- 
milien. Er läßt sich bei den 
Bildschirm-Textsystemen 
durch die Datenvera rbei- 
tungs- und verbundfähigen 
Anlagen nachweisen. Er 
steht mit größter Klarheit bei 
den multifunktionalen und 
vernetzbaren Systemen für 
die integrierte Bürokommu- 
nikation im Mittelpunkt, die 
mehr und mehr die ganze 
Breite der Bürofunktionen 
abdecken. Immer wieder 
sind Arbeitsplätze das Ziel, 
deren Funktionen im vollen 
Einklang mit den Aufgaben, 
Informations-und Kom- 
munikationsbedürfnissen 
der operativen Dienste, 
Sachbearbeiter und Füh- 
rungskräfte stehen. 

Im CeBIT auf dem Hanno- 


veraner Messegelände wird 
im kommenden April sicht- 
bar werden, daß ein Kauf- 
entschluß heutzutage im 
Grunde nur noch die Ein- 
stiegsebene vorzeichnet. Das 
machen bereits die qualifi- 
zierten elektronischen 

Schreibsysteme deutlich. Sie 
bleiben auf Dauer durch ihre 
"Hochrüstbarkeit" mit Bild- 
schirmen und Disketten- 
Stationen ausbaufähig, durch 
Erweiterung der Arbeits- 
speicher. Nutzung leistungs- 
fähigerer Drucker bzw. Stan- 
dardschreibwerke, Anschluß 
an Postdienste wie Teletex- 
und Telex-Systeme. Datex 
usw. Die Schreibsysteme ge- 
hören weiterhin zu den fa- 
vorisierten "tools" (also 
"Werkzeugen") in Sek- 
retariaten und Schreibdien- 
sten, die hohe Anforderun- 
gen an Leistung und Qualität 
erfüllen müssen. 

Textspeicherung und Steue- 
rungskomfort unterstützen 
sie beim korrigierenden und 
redigierenden Schreiben, in 
der Textgestaltung und 
-kommunikation. 

In einer mehrjährigen Wei- 
terentwicklung sind die un- 
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Standards der marktführen- 
den Computer-Netzkonzep- 
te ein. Seit dem letzten 
Frühjahr zeichnet sich eine 
neue Entwicklungsphase ab. 
die Verwirklichung des ISO- 
Referenzmodells. das seit 
1978 weltweit die wichtigste 
Leitlinie für offene Netze 
darstellt. 

Nunmehr sind die fünf 
wichtigsten Schichten dieses 
Modells als OSI-Standards 
(Open Systems Intercon- 
nection) definiert. Deshalb 
hat sich auch die Umsetzung 
dieser Normentwürfe in die 
produktionsspezifischen Sy- 
stem-Techniken verstärkt. 
Hierbei stehen die Textsy- 
stem-Anbieter in der ersten 
Reihe. 

Die offenen Kommu- 
nikationssysteme erschlie- 
ßen im Büro eine Rationa- 
lisierungschance, die weit 
über die arbeitsplatzbezo- 
gene Optimierung hinaus- 
geht. Es ist der Abbau der 
heute noch gewohnt an- 
mutenden Wartezeiten. Dop- 
pelarbeiten und und anderen 
Leerlaufs, der sich aus dem 
Nebeneinander diverser un- 
verträglicher Systeme und ei- 
ner geringen Kommunika- 
tions-Bereitschaft erklärt. 


nikation in innerbetrieb- 
lichen oder öffentlichen Net- 
zen. 

Das Hauptthema der mei- 
sten Aussteller heißt auch 
1985 wieder "Integrierte 
Bürokommunikation". Aus 
dieser Branche sind beson- 
ders frühzeitig multifunktio- 
nale Arbeitsplatz-Systeme 
hervorgegangen. Die Sy- 
stemelassen sich im gleichen 
hausinternem Netz betrei- 
ben. Sie können mit privaten 
Netzen verbunden werden, 
die für andere Industriestan- 
dards ausgelegt sind. Und sie 


terschiedlichen Widmungen 
der Bildschirm-Textsysteme 
und Mikrocomputer weit- 
gehend ausgeglichen wor- 
den. Das besondere Merk- 
mal der Textsysteme ist 
gleichgeblieben. Es sind die 
sehr komfortablen Software- 
Eigenschaften, mit denen 
alle Anwendungsformen der 
Textbe- und Verarbeitung 
umfassend unterstützt wer- 
den. Hinzu gekommen sind 
aber Hard- und Softwarelei- 
stungen, die eine Fülle infor- 
mationstechnischer Anwen- 
dungen erschließen. Kein 
Wunder! Denn Kernstückei- 
nes solch leistungsfähigen 
Systems ist in der Regel ein 
echter Mikrocomputer. Zur 
Hannover Messe rücken 
viele Aussteller erneut die 
hohe Ausbau- und Verbund- 
fähigkeit der Textsysteme in 
den Blickpunkt. 

Mit ihrer Hilfe können Ein- 
und Mehrplatzsysteme wei- 
terwachsen. Viele neue An- 
wendungen eröffnet das Zu- 
sammenspiel mit übergeord- 
neten Systemen, beim Zu- 
griff auf zentralverwaltete 
Daten- und Adressenbe- 
stände. die sich im Rahmen 
der Korrespondenz nutzen 
oder per Textsystem aktua- 
lisieren lassen. Das gleiche 
gilt für den Austausch von 
Textbaustein- Programmen 
sowie für die Textkommu- 


Portabler 1 6-bit-Personal Computer von Panasonic 
mit eingebautem Drucker - RL-H7000 


Schon preiswerte PC- 
Systeme bieten komfortable 


Textverarbeitungs- 

möglichkeiten. 


schaffen Verbindung mit 
Teilnehmersystemen in öf- 
fentlichen Netzen: Datex-P. 
HfD. Teletex/Telex und 
anderen. 

Zuerst hat sich der Trend zur 
integrierten Bürokommu- 
nikation in der Zusammen- 
führung von Text- und Da- 
tenverarbeitung gezeigt. Seit 
1984 kommen mehr und 
mehr Elemente der Bildver- 
arbeitung hinzu. Auch gibt es 
eine Menge Ansätze für 
Sprachkommunikation im 
gleichen Netz. Damit sind 
die Systeme für praktisch alle 
Verfahren gewappnet, mit 
denen im Büro Informatio- 
nen Speicher- und verar- 
beitungsfähig erfaßt, in les- 
barer und archivierbarer 
Form dargestellt und auf 
elektronischem Wege über- 
mittelt werden können. 

Auf der Hannover-Messe '85 
haben noch die homogenen 
Systeme das Übergewicht. 
Bei ihnen werden im glei- 
chen Netz Arbeitsplatzsy- 
steme gleicher Herkunft, 
aber gleicher und unter- 
schiedlicher Widmung be- 
trieben. Das Hauptziel sind 
jedoch heterogene und of- 
fene Systeme. Auch sie 
stehen bereits in fortgeschrit- 
tener Entwicklung. Ein be- 
achtlicher Teil von ihnen 
schließt die Verständigungs- 
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Risiko-Prognosen 

für den Sharp PC 1500/1500A mit Plotter CE-150 


DIE METHODE: 

Unser vorliegendes Programm be- 
schäftigt sich mit einer der bekannten 
Techniken der Entscheidungsfindung 
unter Risiko und Unsicherheit: dem 
Entscheidungsbaum. Hiermit wird der 
Versuch unternommen, ein beliebiges 
sequentielles Entscheidungsproblem 
zu behandeln, das mit einem Risiko be- 
haftet ist und Kosten bzw. möglichen 
Gewinn beinhaltet. 

Eine sequentielle Entscheidung be- 
steht aus einer Reihe von mehr oder 
weniger voneinander abhängigen Ent- 
scheidungen. die in aufeinanderfolgen- 
den Zeitperioden zu treffen sind. Häu- 
fig verpflichtet eine am Beginn einer 
Periode getroffene Entscheidung zu ei- 
nem bestimmten Vorgehen in den fol- 
genden Zeitperioden. Dies kann be- 
deuten, daß günstigere Optionen durch 
das Ergebnis einer früheren Entschei- 
dung ausgeschlossen werden. 

Mit sogenannten unsicheren und unge- 
wissen Ergebnissen verbinden wir, daß 
eine derzeitige Entscheidung zu ver- 
schiedenen zukünftigen Situationen 
führen kann und man nicht von vorn- 
herein weiß, welche Situation sich ein- 
stellen wird. Um mit dieser Unsicher- 
heit fertig zu werden, kann man einen 
Fachmannn konsultieren, der die aus 
einer Entscheidung resultierenden mög- 
lichen Situationen mit einer gewissen 
subjektiven Wahrscheinlichkeit voraus- 
sagt. 

Der Entscheidungsbaum wird aus 
Knoten und Zweigen gebildet. Von den 
Knoten gehen Geradenabschnitte aus, 
die die resultierenden Aktionen oder 
Ergebnisse repräsentieren. An den Ge- 
radenabschnitten sind die Gewinne 
und Verluste der entsprechenden 
Aktionen markiert. Die Knoten kön- 
nen darüber hinaus externe Ereignisse 
repräsentieren, die die behandelte 
Situation direkt beeinflussen. In 
diesem Falle gehen von den Knoten ge- 
strichelte Geradenabschnitte aus: sie 
sind mit der Wahrscheinlichkeit 
markiert, mit der diese externen Ereig- 
nisse erwartet werden. 

Hat man alle möglichen Aktionen ei- 
nes sequentiellen Entscheidungspro- 
blems bestimmt und außerdem das 
Eintreffen von externen Ereignissen 
mit bestimmter Wahrscheinlichkeit 
vorausgesagt, stellt der Entscheidungs- 
baum ein brauchbares und zuverlässiges 


Werkzeug zur Bestimmung der er- 
warteten Ereignisse dar. 

DAS PROGRAMM: 

Die interaktive Form dieses Pro- 
grammes vereinfacht die Entwicklung 
des Entscheidungsbaums. Die Aus- 
gabe des Programmes geschieht in der 
Form von Entscheidungstabellen. Die 
folgenden Regeln müssen bei der Be- 
nutzung des Programmes beachtet 
werden: 

1. Die Knoten sind sequentiell 
numeriert. 

2. Der Ergebnisknoten eines Zweiges 
hat einen größeren numerischen 
Wert als der Quellknoten. 

3. Die Entscheidungszweige sind 
gleichberechtigt, allerdings wird 
durch die markierte Wahrschein- 
lichkeit angegeben, wie "unsicher” 
das betreffende externe Ereignis ist. 

4. Jeder Zweig, der ein externes Ereignis 
repräsentiert, ist mit einer Wahr- 
scheinlichkeit markiert, die zwi- 
schen 0 und 1 liegt Die Summe aller 
Wahrscheinlichkeiten an Zweigen, 
die von einem Knoten ausgehen, 
muß 1 ergeben. 

Das Entscheidungsbaumprogramm 
antwortet mit einer Fehlermeldung, 
wenn eine dieser Bedingungen ver- 
letzt ist. 

Das Programm verfügt über eine soge- 
nannte Diskontierungsroutine. Weil das 
Ergebnis einer Entscheidung nicht un- 
bedingt sofort feststeht, erfolgt die 
Wahl zwischen mehreren möglichen 
Aktivitäten über einen Vergleich der zu 
verschiedenen Zeiten anfallenden Er- 
gebnisse. Der Gegenwartswert (Barwert) 
wird ermittelt durch die Barwerte der 
zukünftigen Erträge und Aufwendun- 
gen. 

Dieser Prozeß benötigt zwei Arten von 
Informationen: den Diskontsatz und 
die Anzahl der Zeitperioden, die abge- 
laufen sind, bis das Ergebnis verfüg- 
bar wird. 

Die Eingaberoutine dieses Program- 
mes besteht aus den Zeilen 60 bis 430. 
Die Dateneingabe für einen Entschei- 
dungsbaum ist nicht immer leicht zu er- 
mitteln. Aus diesem Grund enhält das 
Programm verschiedene Tests (Zeilen 
310, 340 und 370), um die häufigsten 
Fehler zu erkennen. Das Zeichnen des 
Entscheidungsbaums auf Papier kann 


die Benutzung des Programmes 
erleichtern. 

Die Zeilen 450 bis 730 stellen den Ent- 
scheidungsbaum in Tabellenform dar. 
Zwei Sortieralgorithmen ordnen die 
Quellknoten und die Ergebnisknoten 
in absteigender Folge an. Bevor die Be- 
wertung des Entscheidungsbaums er- 
folgt, wird in den Zeilen 740 bis 70 der 
Zeitwert aller finanziellen Ergebnisse 
bestimmt die Zeilen 770 bis 920 schließ- 
lich führen die letzte Prüfung des 
Entscheidungsbaums durch (Numerie- 
rung der Knoten und statistische 
Verteilung). 

In den Zeilen 960 bis 1020 wird der Er- 
wartungswert jedes Knotens bestimmt, 
der ein externes Ereignis darstellt. Da- 
bei ist der Erwartungswert einfach die 
gewichtete Summe der Werte der End- 
ergebnisse. (Jedes Endergebnis wird 
durch seine Eintrittswahrscheinlich- 
keit gewichtet). 

Die Zeilen 1030 bis 1250 bewerten die 
finanziellen Konsequenzen der Ent- 
scheidungzweige. Die Ergebnise werden 
sowohl für die Entscheidungszweige 
als auch für die Zweige, die externe Ereig- 
nisse repräsentieren, in den Zeilen 
1310 bis 1390 in Tabellenform ausgege- 
ben. Die Zeile 1340 unterscheidet zwi- 
schen diesen zwei Möglichkeiten in 
der Tabelle. 

Die letzte Tabelle, die vom Programm 
ausgegeben wird, stellt die optimale 
Entscheidung in ihrem erwarteten Er- 
gebnis dar. Diese Tabelle wird in den 
Zeilen 1450 und 1580 gedruckt. 

ANWENDUNGSBEISPIEL: 

Das Problem: 

Um Ihre Luftflotte zu modernisieren, 
kauft International Airlines sechs Air- 
bus Jets. Dies bedeutet, daß eine bis 
jetzt verwendete DC-8 nicht länger be- 
nötigt wird. Für die Fluggesellschaft er- 
öffnen sich zwei Möglichkeiten: so- 
fortiger Verkauf der DC-8 oder Be- 
halten der DC-8 in Erwartung einer 
zukünftigen Expansion. International 
Airlines benutzt einen Entscheidungs- 
baum als Hilfsmittel zur Analyse dieser 
Optionen. 

Die Daten: 

International Airlines kann seine DC-8 
für DM 2 Mio. dieses Jahr oder DM 1,9 
Mio nächstes Jahr verkaufen. Falls die 
Gesellschaft sich entschließt, den Jet 
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Weltweite Wirtschafts-/Politik-Situation 



stark 

mittel 

schwach 

Wahrscheinlichkeit 

35% 

55% 

10% 

Erwarteter Gewinn 

6 

5 

-3(Verlust) 


(in Mio DM) 


zunächst zu behalten, muß sie eine 
mindestens einjährige Marktstudie 
durchführen, die DM 40.000.- kostet. 
Falls die Studie ergibt, daß die weitere 
Verwendung der DC-8 nicht profitabel 
ist (40% Wahrscheinlichkeit), wird die 
Gesellschaft den Jet dann verkaufen. 
Falls jedoch die Studie den weiteren 
Einsatz der DC-8 favorisiert (60% 
Wahrscheinlichkeit), besitzt die Ge- 
sellschaft zwei weitere Optionen: Ver- 
kauf des Jets oder Behalten für die Ex- 
pansion des Geschäfts. Falls man sich 
für Behalten zu diesem Zeitpunkt ent- 
schließt. wird der zu erwartende Über- 
schuß von dem weltweiten Wirtschafts- 
und politischen Klima abhängen. Ge- 
stützt auf Prognosen, haben Wirtschafts- 
wissenschaftler die folgenden Voraus- 
sagen gemacht: 


Die Ergebnisse: 

Man vergleiche hierzu die Programm- 
ausgabe des Beispiels. Die Tabelle 
"Sortierter Entscheidungsbaum" re- 
produziert die Eingabe mit den Ent- 
scheidungsknoten in aufsteigender 
Reihenfolge und erlaubt die Überprü- 
fung der Originalwerte. Die zweite Ta- 
belle "Evaluierung des Entscheidungs- 
baums" stellt den zu jedem Zweig des 


Baumes zugeordneten Gegenwartswert 
des Gewinns oder Verlusts dar. Sie gibt 
außerdem den gewichteten Mittelwert 
für die Entscheidung an, den Jet für 
eine zukünftige Expansion zu nutzen 
(Knoten 4 bis Knoten 6). 

Die dritte Tabelle zeigt die beste Lö- 
sung für jede Stufe des Entscheidungs- 
baums (in diesem Problem gibt es drei 
Stufen). Zwischen "Benutzung für Ex- 


pansion" (Knoten 4 bis Knoten 6) und 
"Verkauf (Knoten 4 bis Knoten 7) ist 
die erstere die günstigere. Jedoch zwischen 
"Marktforschung" (Knoten 1 bis 
Knoten 2) und "Verkauf' (Knoten 1 bis 
Knoten 3) die letztere bei weitem besser 
bezüglich des jetzigen Gewinns. 


Basierend auf gegenwärtig verfügbaren 
Informationen (d.h. bevor das Risiko 
der Erstellung der Marktstufe einge- 
gangen wird) wäre die beste Entschei- 
dung. die DC-8 so bald wie möglich zu 
verkaufen. Diese Entscheidung würde 
jedoch eine spätere, profitablere 


Option, die Berücksichtigung einer zu- 
künftigen Expansion des Geschäfts, 
ausschließen. 

(Abdruck mit freundlicher Genehmigung des 
Sybex-Verlages Düsseldorf aus "Planen und Ent- 
scheiden mit dem PC 1500/A". Der Band enthält 
eine ausgezeichnete Sammlung wertvoller Wirt- 
schaftsprogramme.) 
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Entscheidungsbaum für International Airlines 

Programmausgabe 


ZWEIG 9 2 ; 


nummer des iuoni knotens 1 : 

NUMMER DES INACH! KNOTENS 7 .3 

WAHRSCHEINLICHKEIT 7 fl 

6ESCHAETZTER GEWINN COM! 7 2000 

DAUER CANZ. 0. PER JODEN I 7 0 


ZWEIG * 3 ; 


NUMMER DES !U0N! KNOTENS 7 2 

NUMMER DES INACHi KNOTENS 7 4 

WAHRSCHEINLICHKEIT 7 fl. 6 

GESCHAETZTEP 6EUINN CDM) 7 0 

DAUER CANZ.D. PERIODEN! 7 1 


ZWEI 6 • 4 ; 


NUMMER DES IUONI KNOTENS 7 2 

NUMMER DES ‘NACH: KNOTENS 7 5 

WAHRSCHEINLICHKEIT 7 0.4 

GESCHAETZTER 6EUINN CDM! 7 fl 
DAUER CANZ.D. PERIODEN! 7 ) 


ZWEI 6 « 5 ; 


NUMMER DES IUON! KNOTENS 7 4 

NUMMER DES INACH: KNOTENS 7 6 

WAHRSCHEINLICHKEIT 7 0 

6ESCHAETZTER GEWINN CDM.' 7 0 

DAUER CANZ. D. PERIODEN! 7 J 


ZWEJG • 6 ; 


DATUfVUHRZEJ T 50208. 3J58 

fntsche JDUN6S0A'jn 


AENDERUN6 OES BARUERT FAKTORS 
-IA <]> NE J N <.0 > J 


NUMMER DES IUONI KNOTENS 7 4 

NUMMER DES ‘NACH; KNOTENS 7 ? 

WAHRSCHEINLICHKEIT 7 0 

GESCHAETZTER 6EWJNN CDM! 7 J 300 
DAUER CANZ.D. PERIODEN! 7 • 


DISKONTSATZ ? 5 


ZWEIG « 2 ; 


ANZAHL DER ZUEJ6E 7 10 

ZUEJG • 1 : 


NUnriER DES IUONI KNOTENS 7 1 

NUnriER DES INACHI KNOTENS ? 2 

WAHRSCHEINLICHKEIT 7 0 

GESCHACT2TER GEVIJNN tDP) 7 - 40 
DAUER (.ANZ. D. °ER JODEN! 7 1 


NUMMER DES IUONI KNOTENS 7 5 

NUMMER DES INACHi KNOTENS 7 8 

WAHRSCHEINLICHKEIT 7 0 

6ESCHAETZTER GEWINN CDM! 7 l 900 
DAUER CANZ.D. PER! ODEN! 7 ] 
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Und mit Volldampf geht’s weiter durch unser 
Wörterbuch der Fachbegriffe. 


IEC-Bus: 

standardisierte Bus-Norm, die für die 
Verbindung mit Peripheriegeräten wie 
z.B. Floppies, Recordern usw. verbind- 
lich ist. Bei dieser Verbindung werden 8 
Datenleitungen. 3 Quittungsleitungen 
und 5 Steuerleitungen zwischen dem 
Computer und Peripheriegerät verbun- 
den. das alles in einem Kabel. 

Der IEC-Bus ist quasi eine parallele 
Schnittstelle mit 25poligem Stecker. 


Impact-Drucker: 

Drucker mit mechanischer Anschlag- 
lagtechnik. Dazu gehören insbeson- 
dere Nadel- und Typenraddrucker. Der 
Anschlag wird über ein Farbband auf 
Papier sichtbar gemacht. 


Indexloch: 

kennzeichnet den ersten Sektor einer 
Diskette. Bei normalem (software- 
sektorierten) Disketten gibt es ein In- 
dexloch, die übrigen Sektoren werden 
per Software gefunden und eingeteilt. 
Zwischen 10 und 16 Indexlöcher dage- 
gen haben die hardware-sektorierten 
Disketten, deren Segmente genau defi- 
niert sind. 


Indexregister: 

Eine Art Zwischenspeicher, dient zur 
Bereicherung von Speicheradressen. 
Die Adresse der Ausführungsroutine 
kann direkt im Index-Register abge- 
speichert werden. Eine andere Möglich- 
keit, eine Befehlsadresse zu bekommen 
ist die Addition von Indexregister und 
Adreßteil des Befehls. Das Ergebnis ist 
eine binäre Kombination, die den 
Speicherplatz kennzeichnet, wo ein be- 
stimmter Befehl mit bestimmten Daten 
geführt wird. 


Indirekte Adressierung: 

Im Maschinenbefehl für den Mikro- 
prozessor ist keine genaue Speicher- 
zelle definiert aus der der Prozessor die 
Adresse erfahren kann. Er muß erst aus 
Berechnungen und dem ihm derzeit 


bekannten Befehl die Adresse des 
neuen Programmschrittes errechnen. 


Informationsdurchsatz: 

Einheit, wie schnell ein Computer Pro- 
gramme abarbeiten kann. 


Initialisierung: 

hat 2 Bedeutungen. 

Beim Arbeiten mit Disketten gleich 
"Formatieren”, zum anderen das 
"Nullstellen" aller Zähler. Adressen 
usw. bei Computern. 


Integer: 

Eine "ganze" Zahl, sie hat keine Dezi- 
malstellen hinter dem Komma. Als In- 
teger bezeichnet man allerdings auch 
den ganzzahligen Anteil von reellen 
Zahlen, d.h. deren Vorkommastellen. 


Integrierte Schaltung: 

Elektronische Bauteile, die viele Schal- 
tungen auf einem Silizium-Halbleiter- 
Kristall vereinigen. Englisch: inte- 
grated circuit (IC). Als IC wird immer 
ein elektronisches Bauelement be- 
zeichnet, das von außen - eingeschlos- 
sen in Keramik- oder Plastikgehäuse - 
aussieht wie ein Tausendfüßler mit sil- 
bernen Beinen. 


Interrupt: 

Der Programmablauf eines Systems 
wird durch einen Interrupt unter- 
brochen (Tasten "Break" oder "Es- 
cape"). Der Befehl wird ausgeführt, die 
aktuellen Werte der Zentraleinheit in 
den bestimmten Bereich des Speichers 
geschoben, anschließend wird die Un- 
terbrechung vorgenommen. 


Indices: 

kommen häufig in der Textverar- 
beitung vor. Kleine Zeichen oder Zah- 
len, die unten oder oben an normalen 
Buchstaben angebracht sind. (Beispiel 


H 2 O oder 4 hoch 5). Sie werden für 
Fußnoten und Exponenten ver- 
wendet. 


ADA: 

Höhere Programmiersprache, wurde 
im Auftrag des amerikanischen Vertei- 
digungsministeriums entwickelt und 
von der EG zur Normsprache erklärt. 


Algorithmus: 

Alles was systematisch abläuft, folgt ei- 
nem Algorithmus. 

Man kann Algorithmus auch als Ver- 
fahren bezeichnen. Wird dieses Ver- 
fahren programmiert, so entsteht din 
Programm. 

Ohne einen eindeutigen Algorithmus 
ist ein Programm meist unlogisch und 
damit nicht funktionsfähig. 


Abakus: 

ist das älteste Rechengerät der Mensch- 
heit. Je nach Ausführung werden fünf 
oder sieben Kugeln auf Stabreihen hin- 
und hergeschoben. Aufgrund der 
Position der Kugeln ergibt sich dann 
der Wert. Der Abakus ist heute in In- 
dien, Rußland und Asien aufgrund sei- 
ner Einfachheit noch verbreitet. 


Akustikkoppler: 

Hilfsmittel zur Datenfernübertragung. 
Der Akustikkoppler sendet und em- 
pfängt Daten von anderen Rechnern 
und wandelt die Töne in Computer- 
sprache um. Die Datenübertragung 
läuft über das Fernmeldenetz, die Kop- 
pler müssen eine FTZ-Genehmigung 
haben. 


Assembler: 

Programmiersprache, die jeder Com- 
puter intern zur Verfügung hat. Assem- 
bler ist eine maschinenorientierte Pro- 
grammiersprache, da ein Assembler- 
programm auf einem anderen Compu- 
tertyp nicht läuft. Die Basis sind die 
Zahlen 0 und 1. 
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Bei der Spectrum-Tastatur 
gibt es 13 Leitungen, die, je 
nach dem wie sie verbunden 
werden, einen Buchstaben 
ergeben. 

Die Jeweiligen Buchstaben 
sind in der rechtsstehenden 
Matrix verzeichnet: 

Die Buchstaben von A-E 
sind die ersten fünf An- 
schlüsse der Tastatur im 
Spectrum, die Anschlüsse 
1-8 sind die zweiten An- 
schlüsse. Insgesamt also 13. 
Will man nun zum Beispiel 
den Buchstaben „C“ erzielen 
so sucht man ihn in der Ma- 
trix, geht senkrecht nach 
oben und waagerecht nach 
links und schon hat man die 
beiden v notwendigen Ver- 
knüpfungen, in diesem Fall 
„D6“. 


Da der Atari Joystick (und 
alle gebräuchlichen Joysticks 
auch) eine Masse haben, 
würde es, wollte man zum 
Beispiel den Buchstaben I 
und den Buchstaben K be- 
nutzen, einen Kurzschluß 
geben, da man eine Verbin- 
dung zwischen 4 und 5 hätte. 
Aus diesem Grund muß 
man die Verbindung zwi- 
schen den Tastaturanschlüs- 
sen über Transistoren voll- 
bringen. 

Im Spectrum selbst liegen an 
den Anschlüssen A-E 5V 
über 10 kOhm Widerstände 
an. Diese Tatsache kann 
man sich zunutze machen, 
woraus sich folgende Schal- 
tung ergibt. 
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Die Belegung des Transistors 
vom Typ BC 167 A: 

Der Ermitter (E) wird an die 
als römisch 1 bezeichnete 
Buchse angelötet. 

Nun bleibt nur die Basis (B), 
die mit dem 10 kOhm Wi- 
derstand verbunden wird. 

Hat man nun den Transistor 
mit den notwendigen Bele- 
gungen versehen, so wird an 
der anderen Seite des 10 
kOhm- W iderstandes die 
Diode angelötet. Hierbei 
muß auf der richtigen Polu- 
ng der Diode geachtet wer- 
den (siehe Bild). Das andere 
Ende der Diode wird mit 
dem jeweiligen Pin des Joy- 
sticks verlötet. 

Zwischen die Diode und 
den 10 kOhm-Widerstand 
kommt der 100 kOhm-Wi- 
derstand. Mit der anderen 
Seite des Widerstandes wird 
die Masse (OV) in Verbin- 
dung gebracht. 

Wenn Sie diese Prozedur mit 
allen Richtungen und der 
Feuertaste hinter sich ge- 
bracht haben, müssen Sie 


nur noch die Masse des Joy- 
sticks (Pin 8) mit den 5 V aus 
dem Spectrum verbinden. 
Alle Funktionen des Joy- 
sticks müßten jetzt funktio- 
nieren. 

Man sollte nun an die 1 3 Ta- 
staturanschlüsse Buchsen lö- 
ten. In diese Buchsen werden 
nun die römisch 1- und rö- 
misch 2-Buchsen ange- 
schlossen. Wenn ein Pro- 
gramm zum Beispiel den 
Feuerknopf als Tastatur- 
buchstaben „F“ verwendet 
so steckt man, am besten 
während das Programm lädt, 
laut Matrix die Verbindung. 
Der Buchstabe „F“ ist hier 
„D3“. Somit steckt man rö- 
misch 1 in die Buchse „D“ 
und römisch 2 in die Buchse 
„3“. Man muß allerdings im- 
mer römisch 1 in die Buch- 
sen A-F und römisch 2-Stek- 
ker in die Buchsen 1-8 stek- 
ken, da sonst keine Funktion 
gewährleistet ist. 

Wer besonders gern bastelt 
und einen Joystick mit 2 




FARBCODE: 

10 kOhm braun/schwarz/orange 

100 kOhm braun/rot/gelb 


Feuerknöpfen hat, der kann 
auch diese getrennt an- 
steuern und hat somit eine 
Funktion mehr. 

Es ist auch möglich, anstatt 
die Verbindung zu stecken, 
sich kleine Miniaturschalter 
zu kaufen und die Schaltun- 
gen damit aufzubauen. Die 
Schalter sind zwar etwas teu- 
er, aber sie sind eben kom- 
fortabler. 

Hier noch einmal eine Liste 
aller Bauteile: 

- 5 Transitoren NPN z. B. 
BC 167 A 

- 5 Widerstände 

10 kOhm 

- 5 Widerstände 
100 kOhm 

- 5 Dioden IN 4003 o. ä. 

- Lochrasterplatine 
ca. 3 x 5 cm. 


Die Gesamtkosten ohne 
Stecker oder Schalter ca, 7 
DM 

Diese Kosten lassen sich 
aber noch herabsetzen, da 
das meiste in der Bastlerkiste 
zu finden ist. 

Aber Achtung: Bitte beach- 
ten Sie, daß bei einer Öff- 
nung des Gerätes ein Garan- 
tieanspruch erlöschen kann. 


Wem das Bauen zuviel ist, 
der kann sich von mir gegen 
15,- DM Unkostenbeteili- 
gung die bestückte Platine 
zuschicken lassen. 

Frank Vosseier 
Kopernikusstraße 18 
7141 Benningen 


Mailberger für Appleworks 


Mit Appleworks können bekanntlich 
Dateien aus der Datenbank (z.B. 
Adressen) nicht mit Texten (z.B. Brie- 
fen) gemischt werden. Dafür gibt es 
den 

Mailberger für Appleworks 

- Mailberger vereinigt Datenbank- 
dateien und Textdateien für die Erstel- 
lung von Formbriefen. 

- Handhabung wie Appleworks - also 
minimale Einarbeitung erforderlich. 

- Zusätzliche Global- und/oder Einzel- 
informationen, die in den Daten- 


dateien nicht enthalten sind, können 
vor dem Ausdrucken eingegeben 
werden: 

Globaldaten werden einmal eingege- 
ben und in jedem Dokument wieder- 
holt. 

Einzeldaten können beim Drucken 
eingegeben werden, um z.B. in Briefen 
zusätzliche individuelle Informatio- 
nen (z.B. Rechnungs-Nr.) einzufügen. 

- Zusammenzug von Zahlenkolonnen. 
Praktisch für Sammelbelege von Über- 
weisungen usw. 

- Ausdrucke können automatisch, vom 
ersten bis zum letzten Brief erfolgen 


und einzeln, nach Durchsicht auf 
dem Monitor. 

- Lauffähig auf APPLE Ile und APPLE 
IIc Computer. 

- Komplett mit Dokumentation, Ein- 
führung in 3 Lektionen und Reserve- 
Diskette. 

- Erhältlich in deutsch, französisch 
und englisch. 

Der Verkaufspreis wird bei DM 257,- 
liegen: das mag aber gerechtfertigt sein, 
wenn man einen konkreten Bedarf zu- 
grunde legt! , 
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MMC-3700 

Preiswerte Farbmonitore für den 
Computer- und Videoeinsatz 


Erstmals in Deutschland 
stellt der italienische Herstel- 
ler Cabel Electronic eine 
Serie von Farbmonitoren 
vor, die in anderen europäi- 
schen Ländern erfolgreich 
sind 

Der Grund für diesen Erfolg 
liegt in der gelungenen Kom- 
bination von Leistung, De- 
sign und verbraucherfreund- 
lichem Preis. 

Die Farbmonitore der Serie 
MC 3700 wurden speziell für 
die Wiedergabe von PAL 
und RGB/TTL Signalen ent- 
wickelt, Die Geräte sind da- 
durch sowohl als Color Da- 
tensichtgerät für die führen- 
den Heim- und Personalcom- 
puter von Commodore, Ata- 
ri, IBM etc. als auch für Vi- 
deorecorder einsetzbar. 

Die Bildröhren der 14" Farb- 
monitore haben eine Nei- 
gung von 90 Grad und sind in 
ein ansprechendes Gehäuse 
in professionellem Design 
eingesetzt. Mit Hilfe eines in 
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horizontale und vertikale 
Richtung drehbaren Fußes 
können die Monitore in jede 
vom Anwender gewünschte 
Position gebracht werden. 
Die Bedienungselemente 
sind auf der Frontseite der 
Farbmonitore angebracht; 
die PAL Ausführung verfügt 


über einen eingebauten 
Lautsprecher. 

Angeboten werden die MC 
3700 Farbmonitore ab dem 
empfohlenen Endver- 

braucherpreis von DM 798,-. 
Nachweis über Boston Com- 
puter Handelsges.m.b.H., 
8000 München 80. 


Sinclair Deutschland mit 
neuem Vertriebskonzept 


Die in Bad Homburg v.d.H. 
ansässige Sinclair Research 
Ltd., Niederlassung Deutsch- 
land, will Computer jeder- 
mann zugänglich machen 
und vor allem nach dem 
Kauf den Anwender vollum- 
fänglich untersützen. Die 
Vertriebsstrategie zielt daher 
neben den traditionellen Ab- 
satzwegen. den Kauf- und 
Warenhäusern sowie den Ver- 
brauchermärkten, vor allem 
für den Schreibpapier- und 
Bürowaren-Einzelhandel, 
Foto-, Video und Optik- 
geschäfte, sowie den Radio- 
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und Fernsehhandel. Abso- 
lut neu ist der Sortiments- 
buchhandel sowie der Spiel- 
waren- und Bastlerbedarfs- 
handel. 

Sinclair verkauft über meh- 
rere regionale Vertriebpart- 
ner im gesamten Bundesge- 
biet sowie in West-Berlin. In 
Frankfurt wird ein Zentralla- 
ger unterhalten, von dem aus 
die Belieferung erfolgt. Die 
regionalen Vertriebspartner 
werden von Sinclair mit ei- 
nem Grundsortiment ausge- 
stattet um die Verkaufs- 
punkte ggebenenfalls in- 


nerhalb von 24 Stunden 
beliefern zu können. 

Diese Vertriebspartner wer- 
den exklusiv Sinclair-Pro- 
dukte verkaufen, können 
aber auch Compute-Zubehör 
wie Drucker, Erweiterungen, 
Software, Bücher oder ähn- 
liches führen. Ein Direktver- 
kauf an den Endanwender ist 
nicht vorgesehen. Zentrale 
Anlaufstelle für Geschäfts- 
verbindungen, Unterneh- 
mens-und Marketing-Strate- 
gien, bleibt Sinclair, Bad 
Homburg. 
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Lotus: Neues Software-Paket ”Jazz” für den 
Macintosh 512K Personal-Computer von Apple 


New York/München, 13. No- 
vember 1984. Der US-Soft- 
ware Produzent Lotus hat 
"Jazz”, ein neues leistungs- 
fähiges Software-Paket vor- 
gestellt das exklusiv für den 
Macintosh 512K Personal- 
computer entwickelt wurde. 
"Jazz" ist ein multifunktio- 
nales Software-Paket mit 
fünf Anwendungsbereichen: 
Textverarbeitung, Erstellen 
von Arbeitsblättern, Daten- 
bankverwaltung, Datenaus- 
tausch, und Erstellen von 
Grafiken, die fünf Funktio- 
nen von "Jazz" sind mitein- 
ander integrierbar, so daß 
der Anwender Dokumente 


wie Analysen, Budgets, Me- 
mos, Empfehlungen und Be- 
richte leicht erarbeiten 
kann. 

Dem Paket beigefügt sind 
zwei Handbücher mit detail- 
lierten Funktions- und Be- 
dienungsanleitungen. "Jazz" 
wird in englischer Version ab 
März 1985 und in komplett 
deutscher Version 1985 zum 
Preis von 1.895,- DM (exkls. 
MwSt.) erhältlich sein. 
"Jazz" läuft auf dem Mac- 
intosh 512K mit einem exter- 
nen Disketten-Laufwerk. Der 
Apple-Drucker und Modem 
können wahlweise zuge- 
schaltet werden. "Jazz" kann 


auch auf dem LISA-Perso- 
nal-Computer mit dem "Mac- 
works"-Programm installiert 
werden. 

Der Präsident der Apple 
Computer Inc., Stephen 
Jobs, glaubt, daß "Jazz"die 
Marktposition des Macin- 
tosh weiter ausbauen wird. 
Kurt Müller, Geschäftführer 
der im Aufbau befindlichen 
deutschen Lotus-Tochter in 
München, erklärte hierzu, 
der Macintosh sei sowohl we- 
gen seiner starken techni- 
schen Möglichkeiten wie 
auch des ihm zugeschriebe- 
nen hohen Marktpotentials 
der geeignete Computer für 


das dritte Software-Paket 
von Lotus. 

Die Lotus Development Cor- 
poration mit Sitz in Cam- 
bridge, Massachusssetts, ist 
Hersteller von Software für 
Personal-Computer. Die Ge- 
sellschaft plazierte ihre ersten 
Stammakten letzten Okto- 
ber. Für das dritte Jahres- 
quartal (bis 29. September) 
lagen die Gewinne bei 9,1 
Millionen Dollar, eine Stei- 
gerung um 94 Prozent gegen- 
über dem letzten Jahr. Der 
Umsatz für das Quartal be- 
lief sich auf 45,7 Millionen 
Dollar. 


Neuer Mikrocomputer alphatronic P50-1 

von Triumph- Adler 


Nürnberg - Als neues Mit- 
glied der erfolgreichen alpha- 
tronic-Mikrocomputer-Rei- 
he stellte Triumph- Adler auf 
der ORGATECHNIK '84 
das Modell P50- 1 vor. das die 
alphatronic-Reihe nach oben 
abrundet. Der Computer ist 
mit dem leistungsstarken 
Prozessor Intel 80186 ausge- 
stattet. der als einer der lei- 
stungsfähigsten seiner Klas- 
se gilt. 

Durch den Einsatz des 
Standard- Betriebssystems 
MS-DOS ist die Kompatibi- 
lität zum IBM PC und der 
problemlose Einsatz um- 
fangreicher Anwendungs- 
Software für 16-Bit-Mikro- 
computer gewährleistet. Hin- 
zu kommen Programme aus 
dem breiten Software-Ange- 
bot für die bisherigen 
alphatronic-Computer. die 
auch bei dem neuen Modell 
für aufgabengerechtere Pro- 
blemlösungen genutzt wer- 
den können. Auf der OR- 
GATECHNIK'84 präsentier- 
te Triumph-Adler beispiels- 


weise das Programm Baufi- 
nanzierung. das zusätzlich 
auf den Modellen P3 bis P40 
eingesetzt wird. 

Bereits in der Grundausstat- 
tung beträgt die RAM- 
Kapazität des neuen alpha- 
tronic Mikrocomputers 128 
KB und ist ohne zusätzliche 
Platine auf 256 bzw 512 KB 
ausbaufähig. Diebeiden inte- 
grierten Disketten-Laufwer- 
ke verfügen über eine 
Speicherkapazität von je 360 
KB formatiert. Datenträger 
im IBM- Format können so- 
wohl gelesen als auch be- 
schrieben werden. 

Das Gerät ist wahlweise mit 
bernsteinfarbenen Mono- 
chron oder Farbmonitor er- 
hältlich. Hervorstechendes 
Merkmal ist die sehr gute Auf- 
lösung von 640 x 400 Pixel. 
Damit ist hochauflösende 
Grafik gewährleistet. 

Die schreibmaschinennorien- 
tierte Tastatur entspricht 
der deutschen DIN-Norm 
2137 und ist mit 18 frei pro- 
er a m m i e rb a re n F u nkt io n s- 


tasten. separaten Cursor- 
Steuertasten sowie einem se- 
paraten Zehnerblock verse- 
hen. Mit ihrer flachen Bau- 
weise entspricht sie höchsten 
ergonomischen Anforderun- 
gen. 

Der neue Mikrocomputer ist 


nicht nur für Mittelbetriebe, 
sondern auch für Großunter- 
nehmen. Behörden und Re- 
chenzentren ein interessan- 
tes Angebot. Als deutscher 
Hersteller mit traditionell 
fachhandelsorientierter Ver- 
triebsorganisation hat 
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Triumph- Adler zusätzliche 
Wetthewerbsvorteile in sei- 
nem kundennahen Angebot 
an Dienstleistung. Schulung 
und Kundendienst. 

Technische Daten: 

CPU: 

(SO 186. 16-bit-Mikroprozessor. 
6 Mhz Taktfrequenz. 128 KB 
dyn. RAM mit Paritätsfeh- 
lererkennung. erweiterbar 
auf 256 oder 512 KB 

Echtzeituhr akkugepuffert 

Floppv-Controller (für 
2FDE) auf Basis-Elektronik 
integriert, interner 16-Bit- 


Datenbus. IBM-kompatibldr 
8-bit- Erweiterungsbus. intel- 
ligenter Tastatur-Controller 
auf Basis-Elektronik inte- 
griert. 

CRT-Controller. 9-polige 
DSUB-Buchse. physikali- 
sche Auflösung im Graphik- 
modus 

Monitor: 

monochrom bernstein. Auf- 
lösung 640x400 
Bildwiederholfrequenz 60 Hz 
25 kHz Zeilenfrequenz. 
Stromversorung über Zen- 
traleinheit. 

Farbmonitor als Nachrüst- 


satz 

Tastatur: 

Sc h re i b m a sch i ne n fei d n ach 
DIN 2137. 

Cursor-Steuerblock. Zeh ner- 
block. 

18 frei programmierbare 
Funktionstasten, 
diverse fert belegte System- 
funktionstasten 
(IBM- PC-kompatibel) 

Schnittstellen: 

Centronics-Druckersch nitt- 
stelle 

IBM-kompatibel. 25-polige 

DSUB-Buchse 

V.24 Schnittstelle, kompati- 


bel zum IBM- Adapter für 
asynchrone Übertragung: 
25-poliger DSUB-Stecker 

Betriebssystem: 

MS-DOSD2.il 

Externspeicher: 

2 Diskettenlaufwerke slim- 
line-Format. 

360 KB formatiert (40 Spu- 
ren. 48 tpi) 

doubl e-sided. double-densi- 
tv. 

6 ms steppingrate. 

Transfer rate 250 Kbit/ s 


Inmac Kabel-Tester: 


defekte Leitungen im Nu entdeckt 


Kabel-Funktionstest in Se- 
kundenschnelle - das bietet 
Inmac mit dem Kabel-Tester 
für RS232/V24- Kabel. Noch 
nicht installierte Kabel las- 
sen sich an beiden Enden mit 
dem Kabel-Tester verbin- 
den. Alle Adern des Kabels 
werden nacheinander voll- 
automatisch getestet. Pro 
Sekunde erfolgt eine Mes- 
sung. Die integrierte neun 
Volt Batterie versorgt das Test- 
gerät mit Strom. Bis zu 70 
Stunden lang. Der Testab- 
lauf läßt sich an den 50 
LEDs genau verfolgen. Sie 
zeigen an, welche Leitungen 
Verbindung haben. Das je- 
weilige Testergebnis läßt sich 
an drei weiteren Leuchtdio- 
den ablesen. 



Bereits installierte Kabel prüft 
der zugehörige Tele-Moni- 
tor. Er zeigt Testablauf und 
-ergebnis an, während der 
Kabel-Tester die Prüfim- 
pulse sendet. Hierfür müssen 
jedoch beide Geräte geerdet 
sein. Zusätzlich läßt sich mit 
dem Kabel-Tester die Stek- 
kerbelegung von Fremdka- 
beln blitzschnell entschlüs- 
seln. 

Den Inmac Kabel-Tester für 
RS232/V24- Kabel gibt es - 
mit 30tägiger Probezeit - 
schon 24 Stunden nach dem 
Auftragseingang bei Inmac, 
Raünheim. Der Kabel-Te- 
ster kostet netto DM 798.-. 


UNIX/MAIL ab sofort im Hanser Verlag 


Der Carl Hanser Verlag, seit 
20 Jahren bekannt für profes- 
sionelle EDV-Literatur, ist 
jetzt auch im Software- 
Publishing tätig: 

Ab sofort erscheint im Carl 
Hanser Verlag unix-mail, 
Europas erster Infor- 


mationsdienst für unix-Her- 
steller und -Anwender. Der 
Gründer der Zeitschrift, Dr. 
Peter Schnupp, ist nach wie 
vor Herausgeber und Chef- 
redakteur. 

Der Carl Hanser Verlag, 
München, macht den Schritt 


zum Markt. Dem ständig 
wachsenden Kreis von unix- 
Herstellern und -Anwendern 
und allen interessierten Spe- 
zialisten wird mit unix-mail 
ein Informationsdienst zur 
Verfügung gestellt, der beides 
ist: News-letter und Fach- 


zeitschrift: unix/mail ist nicht 
für Laien gedacht, sondern 
für Professionals. Viermal 
jährlich wird die unix-Szene 
informiert über alles, was 
rund um das zukunftsträch- 
tige unix-Betriebssystem ge- 
schieht. 
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Deutscher Sinclair QL auf der Orgatechnik ’84 
Service- Vertrag mit M.A.I 


Erstmals auf der Orgatech- 
nik Köln '84 ist der Sinclair 
QL mit deutscherTastatur zu 
sehen. Damit steht jetzt klei- 
nereren und mittelständi- 
schen Unternehmen, aber 
auch dem fortgeschrittenen 
Computer-Freak ein vielsei- 
tiges Gerät mit vier Grund- 
programmen für Text- und 
Datenverarbeitung, Kalku- 
lation und Grafik für nur 
1.998,- DM zur Verfügung. 

Gezeigt wird ebenfalls der 
neue Sinclair Spectrum-h 
der Bestseller-Homecompu- 
ter mit professioneller, schreib- 
maschinenähnlicher Ta- 
statur. Der neue Spectrum+ 
ist mit der bereits existieren- 
den Software und sämtlichen 
Spectrum-Peripherie-Geräten 
voll kompatibel. 

Für die im Juni in Bad Hom- 
burg v.d.H. gegründeten 
deutschen Tochter Sinclair 
Research Ltd. ist die Or- 


gatechnik auch der Einstieg 
in verstärkte überregionale 
Verkaufs- und Werbeakti- 
vitäten. Allein im Vorweih- 
nachtsgeschäft wird der Ab- 
satz von 50.000 Computern 
pro Monat anvisiert. Für das 
Jahr 1985 erwartet Geschäfts- 
führer Dr. Jörn Clausen 
wesentliche Umsatzsteige- 
rungen. Weltweit sind derzeit 
3 Mio. Sinclair-Computer im 
Betrieb. 

Wie Dr. Clausen weiterhin 
mitteilte, wurde ein Vertrag 
mit dem Computerunterneh- 
men M.A.I. Deutschland 
GmbH abgeschlossen. Da- 
mit steht dem Sinclair- 
Kunden ab sofort der 
flächendeckende Kunden- 
dienst von M.A.I. mit seinen 
16 Geschäftsstellen zur Ver- 
fügung. Die Geräte können 
vom Anwender entweder ge- 
bracht oder durch M.A.I.- 
Techniker auch an Ort und 
Stelle repariert werden. 



Inverdata entwickelt ”Quadriga”-Board für IBM PC-XT 
Multikopiersystem für Disketten 
Vier Disketten-Vervielfältiger unabhängig voneinander gesteuert 



Für die Serienproduktion 
setzt sich allmählich das auto- 
matische Vervielfältigen von 
Disketten gegenüber dem 
ebenso unsicheren wie un- 
rationellen "Kopieren zu 
Fuß" durch, der mühsamen 
"Diskettenjockey"-Methode. 
bei der jede Diskette einzeln 
eingelegt, der Kopierlauf, das 
Verifizieren gestartet wird 
usw. Inverdata Electronics 
ist Pionier für das Auto- 
matisieren dieses Vorganges 
und hat jetzt eine Steuerung 
entwickelt, die den IBM 
PC-XT in die Lage versetzt, 
bis zu vier Diskettenkopierer 
aus dem Inverdata-Pro- 
gramm gleichzeitig zu steu- 
ern. Das System nennt sich 
'Quadriga"-Board und wird 


als Platine in den PC-XT ein- 
gesetzt. Dabei ist jede Art von 
Flexibilität gegeben: Man 
kann von einer Kopiervor- 
lage, dem "Master", zur 
gleichen Zeit vier Kopien auf 
einmal ziehen, bis zu vier 
Master mit verschiedenem 
Inhalt vervielfältigen oder 
nur Ausschnitte aus dem In- 
halt verschiedener Disketten 
herausgreifen. Das Gerät 
verarbeitet alle derzeit gängi- 
gen Diskettenformate: 8 Zoll. 
4 1/4 Zoll oder 3 1/2 Zoll, ein- 
seitig. doppelseitig, einfache 
oder doppelte Aufzeich- 
nungsdichte. Alle Kopier- 
schutzroutinen werden über- 
nommen oder bei Bedarf erst 
kreiert, ferner alle com- 
putertypabhängigen For- 
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matierungen etc. Jeder der 
gleichzeitig gesteuerten Dis- 
kettenkopierer hat ein Fach, 
das 80 Leerdisketten faßt, die 
automatisch nacheinander 
beschrieben werden. Man 
kann zu jedem beliebigen 
Zeitpunkt Disketten nach- 
legen. 

Wenngleich die Kopiervor- 
lage auch auf einem Disket- 
tenlaufwerk laufen darf, ist 
der eigentliche Clou des Sy- 
stems die Verwendung einer 
standardmäßigen Harddisk, 
auf der die Kopiervorlagen in 
großer Zahl gespeichert wer- 
den können und damit eine 


"Library" bilden. Diese Qua- 
driga-Betriebssystems. So 
können z.B. Formatierungen 
diverser Diskettentypen un- 
abhängigvon Dateninhalten 
gespeichert und vervielfältig 
werden, während man dann 
andererseits wieder nur In- 
formationen in fertige For- 
mate kopiert, was Inverdata 
die "Blitz-Copy" nennt. 

Der erforderliche Steuer- 
computer IBM PC-XT muß 
mit einer Mindestkapazität 
von 256 KB ausgerüstet sein: 
Mehr Hauptspeicher kann 
nicht schaden, denn er er- 
laubt noch besseres Ausnut- 


zen des Quadrig Betriebssy- 
stems, indem größere Men- 
gen der zu kopierenden 
Daten zwecks höherer Ge- 
schwindigkeit zwischenge- 
speichert werden. Das Qua- 
driga-Board enthält unter 
anderem einen Hochge- 
schwindigkeits-DMA (Di- 
rekt Memory Access) und ei- 
nen Interrupt-Controller. 
Am IBM PC "Mother Board" 
müssen einige Änderungen 
von Inverdata vorgenom- 
men werden. Den IBM 
PC-XT kann man bei Inver- 
data fertig ausgerüstet be- 
ziehen. das Unternehmen 


baut aber auch bereits vor- 
handene Geräte um. 

Die Konfiguration sieht so 
aus: IBM PC-XT. also die 
Harddisk-Version, mit Qua- 
driga-Board und bis zu vier 
Inverdata- Diskettenkopierem. 
die jeweils ein Diskettenlauf- 
werk enthalten. Was letzter 
betrifft, so ist Inverdata auch 
hier flexibel: Es können be- 
liebige vom Kunden bevor- 
zugte Fabrikate verwendet 
werden. Außerdem ist im Be- 
darfsfall ein Drucker z.B. für 
die Dokumentation anschließ- 
bar. 


Commodore rundherum zufrieden: 


Auch international Rekorde 


New York/ Frankfurt- Nach 
der deutschen Tochter im 
letzten Monat hat jetzt auch 
Commodore International 
Ltd. die Ergebnisse des er- 
sten Quartals des laufenden 
Geschäftsjahres (01.07.84 - 
30.06.85) bekanntgegeben. 
Danach erhöhte sich der Ge- 


samtumsatz von 209,3 Mil- 
lionen Dollar im Vorjahr auf 
244,2 Millionen Dollar. Die 
Gewinne vor Steuern er- 
reichten 39,7 Millionen Dol- 
lar gegenüber 36,3 Millionen 
Dollar im Vorjahr. Der Ge- 
winn pro Aktie erreichte 


0,90 (0,79) Dollar. 

Irving Gould, Chairman der 
Gesellschaft gibt sich 'mit 
den Recordergebnisssen run- 
dum zufrieden', weist jedoch 
auch daraufhin, daß das er- 
ste Quartel erfahrungsgemäß 
das schwächste sei. Ferien- 


zeit und die ungewöhnliche 
Stärke des Dollars seien eben- 
so ausschlaggebend gewe- 
sen. Inzwischen habe der Ver- 
kauf kräftig angezogen, so 
daß wieder ein ausgezeich- 
netes Quartal zu erwarten 
sei. 


Neuer Commodore - Verbändebeauftragter 


Ein neues Ressort für die Be- 
treuung von Behörden, Ver- 
bänden und wissenschaft- 
lichen Institutionen hat seit 
dem 1. Oktober 1984 die 
Commodore Büromaschi- 
nen GmbH. Frankfurt/ 
Main, eingerichtet. 

Mit der Leitung dieser Abtei- 
lung wurde Dr. Hans-Joa- 
chim Wegner (50) beauftragt 
Der Diplom-Volkswirt ist im 
Hause Commodore kein Un- 
bekannter. Dr. Wegner, der 
vor seiner neuen Tätigkeit 


mehr als zehn Jahre für die 
Stadt Braunschweig als Wirt- 
schaftsreferent fungierte, konn- 
te den Computer-Hersteller 
1980 davon überzeugen, 
seine deutsche Produktions- 
stätte in der zweitgrößten 
Stadt Niedersachsens zu er- 
richten. Commodore will Dr. 
Wegners Industrie- und Be- 
hördenerfahrung nutzen, die 
Kontakte zu Verbänden, Mi- 
nisterien sowie zur For- 
schung und Lehre zu vertie- 
fen. 
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VF-Display als Ersatz für Plasma- Anzeige 


Als Ersatz für das nicht mehr 
lieferbare Plasmadisplay 
SSD 132-0040 von Burroughs 
hat bitronic GmbH, Mün- 
chen. ein kompatibles Vaku- 
umfluoreszenzdisplay ent- 
wickelt. 

Das Modell MD 132 M5B 
hat dieselbe Höhe und Breite 
wie das ehemalige Burroughs- 
Modul, ist aber auf nur einer 
Platine aufgebaut. Der An- 
schlußstecker und die An- 
steuerung sind kompatibel. 



Verschiedene Filterscheiben 
sind mit Rahmen und Zu- 
behör lieferbar. 


Die Zauberformel heißt CAD 

Terminal statt Zeichenbrett 


Daß Computer vor nichts Halt machen, ist bekannt: Umwälzungen sind nicht nur in di- 
versen Verwaltungseinheiten und Buchhaltungen zu beobachten, Bildschirmarbeits- 
plätze hielten auch Einzug in Bahnhöfe, Flughäfen - selbst bei uns, im Verlagswesen, 
setzten die Mikrochips sich durch. Das bedeutet natürlich eine enorme Umstrukturie- 
rung in den Bereichen Mitarbeiterauswahl und -qualifikation. Und das natürlich forciert 
dort, wo zum Computer als solchem auch leistungsfähige Software, ja ganze Systeme als 
Zauberformeln hinzu kommen: eine solche Revolution stellt unter anderem das CAD 
dar. 


Wenn Schuster Jochen Dietrichs ein 
neues Produkt für die Wintermode 84/ 
85 zurecht schustern will, so packt er 
kein Zeichengerät, sondern den Licht- 
griffel aus. Und setzt sich nicht etwa 
vors Zeichenbrett, sondern seinen 
Personalcomputer. Der ist mit erstklas- 
siger Software gefüttert und zaubert ei- 
nen Standardschuh auf s Display: die- 
sen "Rohling” kann Jochen Dietrichs 
mit seinem Lightpen (der engl. Begriff 
für Lichtgriffel) verändern und so mit viel 
Phantasie eine Kreation entwerfen, die 
vom Publikum mit Begeisterung aufge- 
nommen werden kann. 

Der Witz liegt nicht nur in der Modi- 
fikation der Gestaltung (Bildschirm 
statt Reißbrett), sondern auch darin, 
daß der Personal Computer eine ganze 


Menge von Ökonomie versteht. Er opti- 
miert den Zuschnitt so gekonnt daß 
Designer Dietrichs mit einem Mini- 
mum an Material auskommt. Dadurch 
ist sichergestellt, daß das neue Modell 
nicht nur die Herzen seiner künftigen 
Besitzerinnen höher schlagen, sondern 
auch die Kasse klingeln läßt 

Tusche Ade - 
die Zukunft heißt Lightpen 

Die Couturiers wie unser Herr Dietrichs 
freuen sich über CAD-Programme für 
den Personal-Computer besonders - 
das ist klar! CAD steht für Computer- 
Aided-Design, was sich mit "Rechner- 
unterstützte Formgestaltung" überset- 
zen läßt. Dabei wird dem Computer 


eine ausgetüftelte Bibliotek zur Verfü- 
gung gestellt, in der sämtliche Infor- 
mationen für ein Design innerhalb ei- 
nes Fertigungsrahmens gespeichert 
sind. Das ist schon deshalb wichtig, 
weil die Anforderungen je nach Ein- 
satzbereich unterschiedlich sind. Hat 
Herr Dietrichs es mit dem Werkstoff 
Leder, mit Zuschnitten und dem 
"Normschuh" zu tun, so benötigt bei- 
spielsweise der Ingenieur im Kon- 
struktionsbüro eines Automobilherstel- 
lers anderes "Arbeitsgerät", will er doch 
die Eigenschaften eines Prototyps an- 
hand seines spezifischen Verhaltens im 
Windkanal verändern und einen völlig 
anderen Werkstoff gestalten. Es leuch- 
tet ein, daß seine "persönliche Da- 
tensammlung" anders generiert sein 
muß. 
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Wie funktioniert CAD? 

Der Rechner bringt dem jeweiligen An- 
wender einen normierten Rohling auf 
den Bildschirm, der dann über die Ta- 
statur oder ein besonderes Eingabe- 
gerät (z.B. Lichtgriffel) verändert wer- 
den kann. Beim Lightpen geschieht 
dies ganz einfach dadurch, daß der 
"elektronische Bleistift” auf den 
Bildschirm gesetzt wird und der Desig- 
ner das "zeichnet", was er entstehen las- 
sen will. 

Dabei berücksichtigt das CAD-Pro- 
gramm auch eine Fülle von Infor- 
mationen, die der am Bildschirm ar- 
beitende Mensch nicht eingeben kann. 
CAD greift hier auf die implementierte 
"Standard library", also unsere bereits 
zitierte Bibliothek zurück und findet 
dort das gesamte "mathematische 
Paket" zur Berechnung der sich än- 
dernden Koordinaten oder des je nach 
Bedingung wechselnden Verhaltens ei- 
nes bestimmten Entwurfes. 

Das lediglich auf dem Bildschirm 
existierende Produkt kann nun vom Be- 
trachter um verschiedene Achsen ge- 
dreht und dadurch rundherum in Au- 
genschein genommen werden: der 
Rechner zeigt es von allen Seiten, in 
dem er zuvor die Perspektive und ihre 
individuellen Maße berechnet. 

Das bringt einen unerhörten Perfor- 
mance-Gewinn und eine spürbare Er- 
sparnis an Material wie auch an Arbeits- 
zeit: viele Erkenntnisse, die man 
früher mühsam anhand verschiedener 
Modelle gewinnen mußte, sind nun 
binnen weniger Minuten am Rechner 
möglich. Wertvoll vor allem für die 
Materialbeschaffung: die Logistik 

in Sachen Entwicklungsmaterial 
entfällt oder wird zumindest 
auf einen Bruchteil früherer Werte 
reduziert. 

Durchaus nicht nur Design - 
es gibt auch CAM 

Wenn eine neue Technik so viele Vor- 
teile besitzt wie CAD, so ist es klar, daß 
man versucht ist, sie in Bereichen au- 
ßerhalb des Designs einzusetzen. Hier 
ist es möglich, durch Erweiterung von 
CAD zu CAM (Computer-Aided Ma- 
nufacturing), also "rechner-unterstütz- 
ter Fertigung". Bildschirm-Vorgaben 
werden bei dieser Weiterentwicklung 
nicht nur in der Entwicklung auf Ma- 
schinenebene gehalten und anschlie- 
ßend wieder in "menschliche Verant- 
wortung" überstellt. Nach dem ge- 


staltenden Rechner übernimmt hier 
der fertigende Roboter die Arbeit: das 
Projekt verbleibt vollständig im Wirk- 
bereich der Maschinen - menschliche 
"Kooperation" reduziert sich auf reine 
Überwachungs- und Kontrollaufga- 
ben, die jedoch in Zukunft ebenfalls 
mehr und mehr von Computern über- 
nommen werden. 


Ist CAD problemlos? 

CAD-/CAM-Lösungen bringen dem 
jeweiligen Anwender enorme Vorteile. 
Man übertreibt durchaus nicht, wenn 
man von gravierenden, ja sogar revo- 
lutionierenden Auswirkungen auf den 
Arbeitsmarkt spricht. Dennoch er- 
schöpft sich die Problematik freilich 
nicht im Abbau gering qualifizierter 
Positionen: der Unternehmer muß mit 
erhöhten Kosten an derer Stelle 
rechnen! 

So nützen die besten Programme 
und Hardware-Konfigurationen herz- 
lich wenig, wenn diejenigen Mitarbeiter, 
die damit arbeiten sollen, die neuen und 
teuren Geräte nicht nutzen können, 
weil das nötige Basis-Know how fehlt: 
alle Optimierungsansätze können ja 
schnell in Betriebkostenredundanz 
Umschlägen, was den Einsatz der 
neuen Technologien pervertiert. 

Dazu kommen die kundenspezifi- 
schen Probleme bei der Software- 
Erstellung, die die heute verfügbaren 
CAD/CAM-Versionen noch recht 
kostspielig sein lassen. Die in anderen 
Einsatzbereichen von Personal-Com- 
putern gängigen Pauschallösungen für 
die einzelnen Aufgaben existieren im 
CAD/CAM-Feld noch nicht: Anwen- 
der A muß auch das für seine Belange 
konzipierte Programmpaket X er- 
halten, mit dem System Y für User B 
kann er nicht viel anfangen. Hier ist so- 
mit noch eine Menge Arbeit nötig. 

Geschlossene Phalanx 
auf Arbeitnehmerseite 

Mit Computern stehen Arbeitnehmer 
seit langem auf Kriegsfuß. CAD/CAM 
hat diese Entwicklung sicher nicht ini- 
tialisiert, sie aber doch entscheidend 
gefördert. So laufen Betriebsräte in vie- 
len Unternehmen Sturm gegen jede 
Forcierung von Überlegungen, die in 
die Anschaffung eines CAD-Systems 
münden können. Dabei treiben sie not- 
gedrungen in die Position von Kämp- 
fern gegen Windmühlenflügel: entwe- 
der Rationalisierung aufgrund von 
Personalanpassung verbunden mit in- 
novativen Investitionen - oder aber 


mangelnde Konkurrenzfähigkeit durch 
veraltete Technologien und geringes 
Mitarbeiter/Effizienz-Verhältnis. 

Da man weltweit nicht mit gleichem 
Durchsetzungsvermögen der Arbeit- 
nehmerseite rechnen N kann (schon 
deshalb nicht, weil die betrieblichen In- 
frastrukturen höchst unterschiedlich 
sind), werden diejenigen Unternehmen 
langfristig die Nasen vorn haben, die 
rechtzeitig auf den Zug "technologi- 
sche Innovation" aufgesprungen sind - 
auch im Bereich CAD/CAM. 

Dabei spielt die gegenwärtige Ent- 
wicklung sicher auch eine entscheiden- 
de Rolle in puncto Humanisierung der 
Arbeitswelt ein Stichwort, das seit lan- 
gem die Veränderungen in den Betrieben 
begleitet. 

Das geht sicher nicht ohne eine ver- 
änderte Disposition von seiten jedes ein- 
zelnen Mitarbeiters. Persönlicher Ein- 
satz und Streben nach sichernder Qua- 
lifikation wird in naher Zukunft zu 
erheblichen Auslese-Prozessen auf 
dem Arbeitsmarkt führen. 

Bleiben wir beim Beispiel CAD/ 
CAM: vergleicht man die Entwicklung 
in Hinblick auf Bedienerfreundlichkeit 
so scheint es auf den ersten Blick, als habe 
hier eine Veränderung in Richtung 
Qualifikationsbedürftigkeit stattgefun- 
den. 

Und in der Tat waren die Vorläufer 
der heute verfügbaren Systeme, die in den 
frühen Sechzigern von Anwendern in 
US-amerikanischen Luft- und Raum- 
fahrtunternehmen in Auftrag gegeben 
worden waren, so wenig bediener- 
freundlich. daß nur Spezialisten mit ih- 
nen arbeiten konnten. 

Die Systeme der Gegenwart jedoch 
ermöglichen einem wesentlich umfang- 
reicheren Interessentenkreis, die tech- 
nischen Möglichkeiten zu nutzen. Der 
Hardware-Spezialist von einst ist dem 
ideenreichen Tausendsassa der Zu- 
kunft gewichen. Ist dies nicht Ge- 
genteil dessen, was wir wenige Zeilen 
zuvor gesagt haben? 

Ganz und gar nicht! Heute besteht 
die akute arbeitsmarktpolitische Proble- 
matik im Abbau der Qualifikations- 
pyramide von unten. Die modernen 
Technologien lassen wesentlich mehr 
Menschen arbeitslos werden, als an 
höher qualifizierten Positionen bereit 
gestellt werden kann. Die Verein- 
fachung der Arbeit setzt zwar von oben 
her ein, bewirkt jedoch nicht im 
gleichen Zug ein Mehr an verfügbaren 
Tätigkeiten. Schließlich vereinfachen 
Rechner nicht nur den Fertigungspro- 
zeß, sondern kürzen ihn auch erheb- 
lich ab - wofür unser Beispiel CAD/ 
CAM in hohem Maße steht. 
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CPU-Happy — 

HHnHHHnnHHHneRHnBHHnnHiiBBnHRnn 


Haiiß, liebe Rätselfreunde... 

mit Eurer regen Beteiligung an unserem Weihnachtsmärchen-Rätsel aus der 
Dezemberausgabe habt Ihr uns einiges an Arbeit verschafft. Da scheinen Tüftler 
unter Euch eine ganze Menge Überstunden gemacht zu haben, sonst wären 
bestimmt nicht so viele Lösungen bislang eingegangen. Denn Hand aufs Herz - 
ganz leicht war es ja nicht ! 

Unser Illustrator hat für die Knobelixe unter den CPU-Lesern ein wunderschö- 
nes Suchbild entworfen, das allen Rätselfreunden eine Nuß zu knacken auf gibt. 

Da staunt der Magier aus Fantasien nicht schlecht, als ihm mitten in tosendem 
Gewittersturm ein Heimcomputer samt Monitor widerfährt: ,fiin seltsam Ding, 
das ich noch nie gesehen - wie kann ich’s wohl zum Leben erwecken ?“ 

Nun, ganz unverständlich ist die Reaktion des braven Zauberers nicht! Sie 
allerdings werden weder auf den Zauberstab noch ein gepflegtes Simsalabim 
zurückgreifen müssen, um den Begriff zu erraten, der sich in unserem Februar- 
Suchbild verbirgt. Was macht aus einem Computer einen tüchtigen Helfer? 

Schreiben Sie auch diesmal wieder die Lösung auf eine Postkarte, frankieren ausreichend und schicken sie an den Tronic-Verlag, Stich- 
wort CPU Happy 2285, Postfach 41, D-3444 Wehretal 1. 

Alle richtigen Lösungen nehmen an der Verlosung der Programmkassetten teil. Mitmachen darf jeder, mit Ausnahme der Mitarbeiter des 
Tronic-Verlages sowie deren Angehörige. Einsendeschluß ist der 18. 2. 1985. 

Der Rechtsweg bleibt wie üblich ausgeschlossen. 
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1. Preis 

5 Kassetten aus unserem Software-Service 

2. Preis 

3 Kassetten aus unserem Software-Service 

3. Preis 

2 Kassetten aus unserem Software-Serice 

4.-30. Preis 

1 Kassette aus unserem Software-Service 
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Seeleute, die auf dem Nordatlantik oder der Nordsee unterwegs sind, glauben seit einiger 
Zeit immer wieder, entweder einem Störsender aufgesessen zu sein oder aber einen chroni- 
schen Defekt am Funkgerät zu haben. Sie versuchen, Radio Hilversum klar und deutlich zu 
erwischen, kriegen aber immer wieder ein seltsames Brummen und Knarren - versetzt mit 
Pfeiftönen - in die Ohrmuschel ihres Empfängers. Die Ursache dafür ist kurz und bündig zu 
umschreiben mit 

Basicode 

Es ist wirklich ganz und gar typisch für den jungen und immer wieder faszinierend hektischen 
Computermarkt: Da redet die halbe Welt noch von MSX. jenen drei Buchstaben, mit denen die 
Japaner gemeinsam mit Microsoft die amerikanischen und westeuropäischen Hardware- 
Hersteller erzittern lassen wollen - und schon ist wieder etwas umwerfend Neues in aller 
Munde, BASICODE. 

Diese Veraallhornung der beiden Wörter BASIC und CODE zielt genau wie MSX darauf ab, für 
entscheidend mehr Harmonie zwischen den heute verfügbaren Rechnern zu sorgen. 

Die Problematik ist uns allen ja zu genüge bekannt: Da liest man irgendwo von einem tollen Pro- 
gramm, auf das man schon eine ganze Weile scharf ist. doch leider ist es wiedermal nicht für den 
eigenen Rechner zu haben. Trotzdem kaufen und umschreiben? Nun. wir alle wissen, daß das 
leichter gesagt als getan ist. 

Ja. in solch einem Augenblick wünscht jeder begeisterte Freak sich eine Art Esperanto für Com- 
puter. eine Sprache, für die eine ausreichende Kompatibilität kein Problem ist. Der Apple spricht 
mit dem Bit-90, der Commodore 64 mit dem Colour Genie, der Dragon mit dem Epson, der 
Fujitsu mit dem Sharp - alle verstehen sich prächtig und benutzen die gleiche Bandaufzeich- 
nung zum Daten-Input. Ein Wunschtraum? Vision des nächsten Jahrhunderts? Mitnichten! Des 
Rätsels Lösung stellen wir Ihnen in diesem kleinen Bericht vor. 


BASICODE wurde in Hol- 
land entwickelt und ist im 
Prinzip so genial einfach 
aufgebaut, daß man sich an 
den Kopf greifen und fragen 
mag, weshalb man darauf 
nicht schon längst selbst ge- 
kommmen ist. 

Der Witz des tollen Systems 
liegt nämlich nicht nur dar- 
in, daß Programme, die mit 
BASICODE erstellt wurden, 
bequem übertragen, auf 
Band/Diskette aufgezeich- 
net und später wieder in den 
Heimcomputer eingelesen 
werden können. Der bahn- 
brechende Vorteil besteht 
darin, daß dadurch auch eine 
echte COMCOMCOM mög- 
lich wird, eine COmputer- 
COmputer-COmmunication 
also. Freunde und Bekannte 
müssen dadurch nicht mehr 
unbedingt einen Vertreter 
Ihres Gerätetyps im Wohn- 
zimmer stehen haben, wenn 
Sie mit ihnen per Akustik- 
Koppler in Computer-Kor- 


respondenz treten wollen. 

Auf gleicher Wellenlänge 

Programme und Daten wer- 
den von Ihrem Computer 
beim Saven im sogenannten 
Zweitonverfahren auf Band 
bzw. Scheibe geschrieben, in 
einem Prinzip also, das sich 
aufgrund der Bevorzugung 
des Binärsystems durch den 
Computer geradezu auf- 
drängt. Bit für Bit wird ein- 
fach ein hoher oder tiefer 
Ton übertragen, je nachdem, 
ob das gerade kommende Bit 
1 oder 0 ist. 

Leider haben es aber die ver- 
schiedenen Hersteller bis- 
lang tunlichst vermieden, 
einheitliche Frequenzen bei 
der Wahl dieser beiden Töne 
zu verabreden. Jeder kochte 
brav sein eigenes Süppchen, 
beepte sein spezielles Tün- 
chen auf Band und sorgte so 
dafür, daß alle Familien 
schön sittsam getrennt von 
einander blieben. 


Man muß zugeben, daß dies 
für den jeweiligen Compu- 
ter-Produzenten ganz und 
gar sinnvoll war: Schließlich 
hätte eine Übereinkunft oh- 
nehin nicht allzuviel ge- 
bracht, da jeder Hersteller 
sowieso eigene Gerätedia- 
lekte geschaffen hatte, die ei- 
ner Zusammenarbeit zwi- 
schen verschiedenen Syste- 
men im Wege standen. Was 
hilft’ s auch, wenn ich meinen 
Befehl X oder mein Kom- 
mando Y in einer Zweiton- 
folge der Frequenzen 1000 
und 2000 Hertz verschlüs- 
sele, diese Befehle jedoch 
beim Empfängergerät über- 
haupt nicht implementiert 
sind? 

Sie haben recht: Die Situa- 
tion erscheint zunächst aus- 
weglos. Schließlich kann 
man nicht von heute auf 
morgen eine Generalkon- 
ferenz aller Hersteller ein- 
berufen und ein für alle ver- 
bindliches Standard-Basic 


verabschieden. 

Dennoch ist es den findigen 
Köpfen in Holland gelun- 
gen, drastische Abhilfe zu 
schaffen. Auch hierfür ist vor 
allem eine normierte Fre- 
quenzstandard notwendig. 
Man wählte einen Bereich, 
der auch von einfachen 
Bandgeräten einwandfrei 
verarbeitet wird und ent- 
schied sich für die Werte 1200 
und 2400 Hz. An diese Norm 
muß sich jeder halten, der bei 
BASICODE mitmischen 
will. 

Kleinstes gemeinsames 
Vielfaches 

Doch soweit hätten wirs ja 
auch noch geschafft - das 
reichte uns ja nicht. Was wir 
brauchen, ist bekanntlich die 
Sprachvereinheitlichung. 
Hier beginnt die eigentliche 
Genialität der schönen 
Sache, die sich ebenbürtig 
neben das legendäre Ei des 
Amerika-Entdeckers stellen 
darf. 
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Hallo , Freunde der "neuen” CPU! Ich 
habe selten Lust, ellenlange Briefe zu 
schreiben, Jetzt aber ; wo ich Eure 
Weihnachts-CPU gesehen habe, hab * 
ich gleich hingelangt. Ich muß Euch ein- 
fach sagen, wie stark ich die "neue" 
CPU finde. Ich kann nur sagen: macht 
weiter so! 

Thorsten Danielsen, Flensburg 


Ich finde die CPU echt Spitze. Beson- 
ders die Idee mit dem Rätsel! Hoffentlich 
bringen Sie jetzt in jedem Heft ein 
Preisausschreiben. Schade, daß die 
CPU nur einmal im Monat erscheint. 

Malte Ökberg, Kopenhagen 


Die "neue"CPU zeigt, daß es auch Re- 
daktionen gibt, die sich an den Wün- 
schen ihrer Leser orientieren und nicht 
einfach darauf aus sind, ihr privates 
Süppchen zu kochen. Ich habe mehrere 
Briefe mit Verbesserungsvorschlägen an 
Sie geschickt und konnte nun feststellen, 
daß die "neue" CPU genau auf der Wel- 
lenlänge liegt, die ich mir von einem qua- 
litativ einwandfreien Magazin erhoffe. 

Dr. Joachim Trebitsch, Tübingen 


Anmerkung der Redaktion: 

Über den Brief von Herrn Dr. Trebitsch 
haben wir uns natürlich gefreut - wie 
über alle übrige Leserpost zum Thema 
"neue” CPU auch. Wir wollen aber fest- 
stellen, daß wir selbstverständlich nicht 
das ''Konzept” eines einzelnen Lesers 
zum Anlaß nahmen, das Erschei- 
nungsbild unseres Magazins umzu- 
krempeln. Die Veränderungen basie- 
ren auf vielen hundert Briefen, nicht 
auf den Anregungen einzelner. 

Beim Arbeiten mit vielen Veränder- 
lichen empfiehlt es sich oft, eine mehrdi- 
mensionale Variable zu definieren und 
ihren Elementen die einzelnen Werte zu- 
zuordnen. Können Sie mir sagen, welche 
Regeln ich dabei beachten muß? Ich 
habe nämlich gehört, daß man bei 
Matrix-Berechnungen aufpassen muß. 

Martin Specht, Salzburg 


Antwort: 

Das Rechnen mit Matrizen wird meist 


für komplizierter gehalten, als es in 
Wirklichkeit ist. Die Schreibweise mag 
hierfür verantwortlich sein. Nach- 
stehend geben wir Ihnen ein paar Hin- 
weise, mit deren Hilfe Sie die meisten 
anfallenden Arbeiten erledigen kön- 
nen. Leider schrieben Sie jedoch nicht, 
welchen Computer Sie benutzen. Da- 
durch können natürlich auch wir nicht 
auf die speziellen Gegebenheiten Ihres 
Basics eingehen. Um Ihnen aber trotz- 
dem helfen zu können, haben wir ein 
Level-O-Basic gewählt d.h. nur solche 
Befehle, die in fast jeder Rechnerver- 
sion zu finden sind. Sie werden deshalb 
keine Schwierigkeiten haben, die von 
uns genannten Operationen auf Ihrem 
Computer zum Laufen zu bringen. 

Wir empfehlen Ihnen, soweit möglich 
nur Matrizen derselben Ordnung zu 
benutzen, d.h. nur mit Matrizen 
gleicher Spalten- und Zeilenzahl zu ar- 
beiten. Mit dieser durchaus prakti- 
schen Einschränkung schaffen Sie sich 
nahezu alle Schwierigkeiten vom 
Hals: 


Matrizen-Addidon: 

Sind zwei Matrizen M(l) und M(2) von 
derselben Ordnung, so sind es auch de- 
ren Summe bzw. Differenz. 

Ein Unterprogramm zur Addition bei- 
der Matrizen sähe wie folgt aus: 

1000: REM MATRIZEN-BERECH- 
NUNGEN 

1100: REM ADDITION 
1110: FOR 1=1 TO Y 
1120: FOR J=1 TOZ 
1130: M(I,J)=Y(IJ)TZ(I,J) 

1140: NEXT J 
1150: NEXT I 
1160: RETURN 


Matrizen-Subtraktion: 

ist nicht schwerer. Ein entsprechendes 
Unterprogramm wäre analog zu 
erstellen: 

1200: REM SUBTRAKTION 
1210: FOR 1=1 TO Y 
1220: FOR J=1 TOZ 
1230: M(I,J)=Y(I,J)-Z(U) 

1240: NEXT J 
1250: NEXT I 
1260: RETURN 


Matrizen-Multiplikation: 

Wir haben es wieder mit unseren Matri- 
zen M(l) und M(2) zu tun, die wir so de- I 


finieren wollen, daß die Spaltenzahl 
von M(l) gleich der Zeilenzahl von 
M(2) ist. Das ist deshalb wichtig, weil 
das Produkt (Ergebnis einer Multi- 
plikation) zweier Matrizen nicht kom- 
mutativ ist, d.h. eine Vertauschung von 
Multiplikant und Multiplikator nicht 
stattfinden darf. Mathematisch gespro- 
chen: 

M(l) x M(2) ist ungleich M(2) x M(l) 
Wir nehmen wieder unsere schon be- 
kannten Matrizen, die wir uns wie folgt 
definiert denken: M(l) habe Y Zeilen 
und X Spalten, M(2) habe X Zeilen und 
Z Spalten. Dann gilt für die Produkt- 
matrix M(P), daß sie aus Y Zeilen und Z 
Spalten besteht. 

Das von uns benötigte Unterprogramm 
hat das innere Produkt von Zeilen- und 
Spalten-Vektor (repräsentiert durch I 
und J Schleifen) zu bilden. 


1300: REM MULTIPLIKATION 

1310: FOR 1=1 TO Y 

1320: FOR J=1 TO Z 

1330: P(I,J)=0 

1340: FOR K=1 TO X 

1 350 : P( I, J)= P( I J)+ M(I,X) ★N(XJ) 

1360: NEXT K 

1370: NEXT J 

1380: NEXT I 

Bedenken Sie aber bitte, daß die be- 
nutzten Variablen im Hauptprogramm 
DIMensioniert wurden. 


Ist die Rubrik "CPU-Pocket" ab jetzt in 
jeder Ausgabe zu finden? oder war sie 
nur eine Zusatzgabe zur Weihnachts- 
ausgabe. Ich besitze nämlich einen 
Casio-Taschencomputer und würde 
gern CPU abonnieren, weil sie meines 
Wissens die einzige Zeitschrift auf dem 
deutschen Markt ist, die einen solchen 
Service für Pocketcomputer-Besitzer 
hat. 

Diether Arendt, Bad Segeberg 


Antwort: 

Bedingt durch den Verlagswechsel von 
CPU, Homecomputer als auch Compu- 
te mit sind wir leider gezwungen, die 
Rubrik CPU-Pocket für diese, als auch 
die nächste Ausgabe zu streichen, da 
wir uns in unserem Hause erst auf diese 
Rubrik einstellen müssen. Sicher je- 
doch ist, daß CPU-Pocket in allen wei- 
teren Ausgaben als fester Bestandteil 
von CPU geplant ist. 
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AZTEC SOFTWARE 
Howard Dutton 

Auf der Heide 18 
OT Rohden 

D-3253 Hess. Oldendorf 5 
W. Germany 

Tel. (051 52) 4333 


OTT 


C«? 




• zum Selbstprogrammieren 

• kann in eigenen Programmen (Basic 
oder MC) verwendet werden 


• wird hardwaremäßig betrieben 
(keine Software nötig) 


Jetzt lieferbar für: 


• 

• 

C 64 

COLOUR GENIE 


VIC/20 

ATMOS 


MEMOTECH 500/512 

MSX 

• 

ORIC 1 

SCHNEIDER CPC 646 


SHARP MZ-700 



für andere Computer auf Anfrage 

• 

Preis DM 114,00 inkl. MwSt. + Porto und Verpackung 

• 


deutliche Sprachwiedergabe 

unbegrenzter Vokabelschatz in 
allen Sprachen, durch Verwendung 
von Lautsprache 

braucht kein Netzteil und besitzt 
eigene Lautsprecher 

arbeitet mit allen Computern 

12 Monate Garantie 



CPU-Game 


The Castle of Questionsmarks 

Der grausame Zauberer Quatz, der m einem Schloß wohnt, hat Ihren 
Vater entführt, um ihn für obskure Experimente zu mißbrauchen. 

für ZX-81 


Ihre Aufgabe ist es nun, Ihren Vater aus 
dem Schloß „Castle of Questions- 
marks“ zu befreien und ihm somit das 
Leben zu retten. 

Zu Beginn des Spiels werden Sie nach 
einem Schlüsselwort gefragt, mit Hilfe 
dessen Sie in das Schloß gelangen. Ha- 
ben Sie das richtige Schlüsselwort erra- 
ten und sind somit im Vorraum des 


Schlosses angelangt, so bekommen Sie 
die Aufgabe gestellt: Zehn Fragezeichen 
in einem geheimnisvollem Labyrinth 
einzusammeln, um in die innere Räu- 
me des Schlosses zu gelangen. 

Dort angekommen, bestimmen Kom- 
binationsgabe und Glück den Ablauf 
des Geschehens. 

Und nun ... viel Spaß!!! 


0HREM 


THF i flSTL F HF 
tfUESTIOMMQPKS 


l ! t L I I t L I L LU.LLI.LI L. 


15 LET U: 

20 LET R =0 
25 LET U=0 
30 LET D=9998 
35 LET C =2400 
4.0 LET U * = "?" 

45 GOTO 2600 
50 LET Z=0 
55 CLS 
60 LET 5=0 
65 LET X=10 
70 LET V = 10 
75 GOSUB D 

79 FAST 

80 FOR N =0 TO 23 

90NEXTN 
95 FOR P=1 TO 150 
100 LET M = INT C 1+ C20*RND) ) 
105 LET N = INT < 1+ (30*RND) ) 
110 PRINT AT M,N; 

115 NEXT P 

PRINT AT 23.0; " 


125 IF P > 190 THEN LET 
127 PRINT AT 22,22, "5 
130 PRINT AT 23,29, "0| 

140 PRINT AT 22, 2S;' 

28 ; " I" 

145 LET T =30 -Z 

150 LET A=INT ( 1+ C20*RND) ) 

160 LET 8 = INT C 1+ (30+RND) ) 

170 PRINT AT X,Y;"L" 

180 PRINT AT X,Y;"1" 

190 LET X=X+ (INKEY S = "Z" )- (INKEY 
$=" A" j 

200 LET Y=Y+ (INKEY *="P") - (INKEY 
$=" 0 ") 

202 IF OHR $ PEEK (PEEK 16396+25 
6*PEEK 16397+1 +Y+33+X) = "1" THEN 
GOTO 1000 

' IF X >21 THEN LET X=21 
IF X<0 THEN LET X=0 
IF Y >31 THEN LET Y = 31 
IF Y <0 THEN LET Y=0 
PRINT AT A , B; 

IF X=A AND Y=B AND INKEY$=" 
M" THEN GOTO 300 
217 LET T=T-1 



206 

207 

208 

209 

210 
215 


219 

220 
300 
305 
310 
315 
320 

, $ , 
.m. 

* m ) 

330 

335 

340 

345 

347 

350 

1000 

1010 

1020 

1030 

1040 

1050 


$" j AT X - 1 , Y 
X , V — 1 , $ 

H" ; AT X - 1 , Y 
x , Y - l ; "1" 


IF T = 0 THEN GOTO 1500 
GOTO 170 

PRINT AT X,Y,"S" 

FOR P=0 TO 10 
NEXT P 

FOR P =0 TO 20 
PRINT AT X + 1 , Y ; 

AT X,Y + 1; AT 
PRINT AT X + 1 , Y ; 

AT X,Y+1; "I"; AT 
NEXT P 
LET 5=6+1 
PRINT AT 23 , 29; 5 
IF 5=10 THEN GOTO 3000 
LET Z=Z+1 
GOTO 145 
FOR N =0 TO 10 
PRINT AT X , Y; 

PRINT AT X , Y; 

NEXT N 
CL5 

PRINT AT 


> 


10, 10; ''HAAHAAHAA. 


1100 FOR N =0 TO 60 
1110 NEXT N 
1120 GOTO 55 
1500 CLS 

1505 PRINT AT 10, 10; "TIME OUER" 
1510 FOR N =0 TO 20 

PRINT AT 10,9; V" ; AT 10,19; 
AT 10,9, "X", AT 10,19, "V 
NEXT N 

PRINT AT 15,4; "GEBEN SIE AU 

( J/N) " 

IF INKEY$ = ’“' THEN GOTO 1560 
IF INKEY $="J" THEN GOTO 250 


1%40 
1550 
F ? 
1560 
1570 
0 

1580 
2000 
L0 


GOTO 50 
L L ä 
PRINT 



2015 GOSUB D 

2030 PRJNT AT 8,3; ' 

_jrr 9,3; " 

Tjat 10,3; " 




RTnT AT 8,26; "H” ; AT 7,26; 
26;,"W'; AT 5,26; "Hi" ; A 


2040. PRINT AT 
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£050 PRINT RT 14 , 16 ; M / n ; RT 14,22 
;'V";flT 15,15 ; " /" ; Rt 15,21, "/ * M 
2060 PRINT RT 7,15; " I” ; RT 
I" , RT 5, 15, “ I " ; RT 4, 15, " I" 

2070 FÜR N=0 TO 30 

2030 PRINT RT 4,15; "H" ; RT 4,16, 

"i? M ;flT 11,20; RT 11,20; V M 

2090 NEXT N 

2091 RETURN 

2100 PRINT RT 17,0, “SIE BRftUCHEN 
EINEN SCHLUESSEL, UM IN DR5 SC 
HLÜSS ZU GELANGEN... 


2105 PRINT RT 22,0; 


GEBE DRS SCH 


2110 IF INK*EY$ = ,,M THEN GOTO 2110 
2120 IF INKEY *sU* THEN GOTO 2200 

2124 FÜR N =0 TO 10 

2125 PRINT RT 23 , 0; "FALSCHER SCH 
LUESSEL" ; RT 23,0; " 

2127 NEXT N 
2130 GOTO 2110 
2200 CLS 

PRINT RT 5,0; " 



2220 




i*u; " 

,14; •* 

_ AT 4,14;" 

15 'S c H L LäfSELUJuir™ 

N STEHEN SIE UOR DEM AUFGANG ZU 

EINEM LABYRINTH. " 

2235 P RINT RT 21,0 
— 



HABEN 
GEFUNDEN. NU 


D PU ECKEN SIE 


££36 GOSUB C 
£240 PRINT AT 16,0, 

>Hä< FRAGEZEICHEN 
IN DIE GRUFT ZU 
, IN DER IHR UATER 

r Eimaia gefangen 

ROT 71 

2245 GOSUB C 
2250 PRINT RT 16,0; 

SICH IN DIESEM 
T DEN TASTEN 
HsLINKS 0=RECHT5. 

INZUSflMMELN , MUESSEN SIE > 

CKEN . " 

2255 GOSUB C 

2260 PRINT RT 16,0; “ABER GEBEN S 
IE ACHT . SIE DUERFEN DIE ZRUBERUR 
ENDE >M< NICHT BERUEHREN , DE 

NN SONST L OES EN SICHDIE BEREITS 
GESAMMELTEN >?< IN LUFT RUF.... 


SIE MUESSEN 
SAMMELN , UM 
GELANGEN 
UOM ZAUBERE 
GEHALTEN UI 


SIE BELEGEN 
LABYRINTH MI 
EI = AUF § = AB 
UM Elfi >?< £ 
DRUE 


2265 GOSUB 
2270 PRINT 
EINES. . . . 


C 

RT 


16,0; 


SICH 

ELT 


•...UND NOCH 
BEEILEN SIE 
DIE ZEIT SRI 


ST A RT EI 


2 £ S 0 
£290 

£400 

£410 

£500 

£510 

AT 

AT 

2,5, 

; AT 


GEGEN SIE.... 

iTiisnjB c 

GOTO SO 

IF INKEY $ - " " THEN GOTO C 

RETURN 

CLS 

PRINT RT 6 ,3; ••HRRHRRHRR. . . . 
8,5; ” DER ZAUBERER l^XSSSM IST 
10,5, "SEHR ERFREUT. AT 1 
"...ER KANN IHREN UATER NUN 11 
1 4 , 5 .i ’ ' F U E R SEINE EXPERIMENTE 


2520 FÜR N = 0 TO 4E4 „ 

2530 PRINT RT 16 , 10; ''113=03®’’ ; RT 
16,10; "T OETEN " 

2550 NEXT N 
2600 GOSUB 2000 

2605 PRINT RT 16,0, "J R H N S 0 
P R E 5 E N T M 


2610 PRINT hT 16., O; " 

'• ; THE CPSTLI 

E OF OUEST IÖNMRPKS <1 
ITTE EINE TASTE DPUE 

’Y RT, 23,4; "H 

gESKäSQ" 


262Q GOSUB C 
2630 PRINT RT 16, O; 


IER UOR DEM SCHLOSS 
CHEN UND WOLLEN 
AUS DEN HR E N D ENDES 
HEN ZAUBERERS 
2 ft 4 O GO S U 6 C 
£650 PRINT AT 16,0, 


NNEN SIE UMKEHREN 

OCH MUTIG SIND, 

R IHNEN UIEL 
RGNUEGEN. . . 

£660 GOSUB C 
£670 GOTO £100 
3000 CLS 

3010 PRINT AT 5,5, 


'GUTEN TAG. . . 
SIE STEHEN H 
DER FRAGEZE I 
IHREN UATER 
FUERCHTERLIC 
BEFREIEN . " 


.... NOCH KOE 

WENN SIE UED 
UUENSCHEN UI 
UE 




3020 GOTO 3115 
3025 FAST 
3030 PRINT AT 4 
‘ AT 5,1; "P 


; at J 


s,0; 

T 10,0 
T 12,0; 

T 14,0 
T 16 ,0 , 

,0; " 1" , A 
3031 P RINT 
, 15, "I 
4,15; 

3035 LET 
3040 LET 



PRINT AT 
NEXT N 
FOR Y =6 TO 
PRINT AT 0 
NEXT Y 
FOR X=0 TO 
PRINT AT X 

X 


31 

Y; ' 

12 

6 , 1 


AT 


>31, 


> > DP 
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3100 NEXT 

3111 SLÜU 

3112 RETURN 
3115 GOSUB 3025 
3120 GOSUB D 

3130 PRINT AT 13,7; "B R A U 0 . 

. . " ; AT 15,7; "SIE KONNTEN ALLE 1 

0 >? < " ; AT 17,7, "EINSAMMELN, UND 
STEHEN", AT 19,7; "NUN IN DER GRUF 
T , IN DER" j AT 21,3, "IHR UATER. FES 
TGEHA LT E N U U R D E . " ; AT £3, 0; 

3140 GOSUE 
3150 PRINT AT 13,7, "ABER, UIE SI 
E SEHEN , " ; AT 15,7; "IST ER NICHT 
MEHR HIER . " ; AT 17, 7,” IHRE SUCHE 
MUSS WEITER-" , AT 19 , 7; "GEHEN . . . 

", AT 21,3; "UIELLE 
ICHT DIE TUEREN ???????■• 

3160 GOSUB C 

3170 PRINT AT 13,7;" DURCH UELC 
HE TUER " ; AT 15,7;" MOECHTEN 
SIE GEHEN ??" ; AT 17,7," DURCH DI 
E SCHWARZE ? " , AT 19,7," ODER D 

URCH DIE WEISSE?", AT 21,3;"DRUEC 
KEN SIE S FUER SCHWARZ " ; RT 23, 
3; "ODER ® FUER WEISS... 
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3 1S0 LET I = INT (RND*10) 

3190 IF INKEY *="" THEN GOTO 3190 
3200 IF INKEY * = "S" AND I >5 THEN 
G ÜT 0 4-50Ö 

3210 IF IN KEY $="5" RND 1=5 RND U 
=1 RND R=1 RND U=1 THEN GOTO 800 
0 

3220 IF INKEY $ = ,, S M RND I<5 THEN 
GOTO 4000 

3230 IF INKEY $ = ,, W M RND 1=8 RND U 
= 1 RND R = 1 RND ü = i THEN GOTO 800 
0 

■'•UT THEN GOTO 


IF IN KEY $ < 


3240 
90 

3250 CLS 
3260 GOSUB 3035 
3270 PRINT RT 
H ' 1 ; RT 9,2.. 

”;RT 11,1, j 
RT 13,1; f, r 
3230 PftlNT 
10,16, - | 


31 




: 'R INT flT 3,11 


' ; flT 3 , 

' RT 5, 
RT 7, 1 


. 4 ; "Jl " ; RT 3. 

RT 10,1.; 

••JflT 12,/ 

„ ^T 14 - 
5,15; "* _ 
i " ; RT 11,16; 

", RT 12,16, r I 

3290 IF U=0 THEN Pf 
=0 = " 

3300 PRINT RT 2,3, "I 
§; ' I y r;PT 4,8; "I I 

ö , ' IbwI Jr ; pt 6,10, I 
0, "TV"; Pt 3,10, "V" 

3304 PRINT RT 13,7, "PUCH IN DIE5 
EN RAUM IST" ; RT 15,7; "IHR UflTER 
NICHT ZU SEHEN." 

3305 IF U=0 THEN GOTO 3900 
3310 GOSUB D 

3320 PRINT PT 17,7; "ABER WIE SIE 
SEHEN, IST " ; RT 19,7; "DAS FENST 
ER GEOEFFNET , UND" ; RT 21,2;" EINE 
GEHEIMTUER FUEHRT HINAUS", PT 23 
, 0, "TASTE OFFENSTER fl=TUER 0=ZUR 
UECK " 

3330 IF INKEY * = "" THEN GOTO 3330 
3350 IF INKEY $ = "F" fl N D I<2 THEN 
GOTO 2200 

3360 IF INKEY $="F" RND I > =2 THEN 
GOTO 4500 

3370 IF INKEY *="T" RND 1=3 RND U 
= 1 RND R = 1 AND U = 1 THEN GOTO 300 
0 

3375 IF INKEY $="T" RND I<>3 THEN 
GOTO 5000 
3330 GOTO 3000 

3900 PRINT RT 17,7; "ABER AUF DEM 
TISCH LIEGT", RT 19,7, "DIE ARMBfl 
NDUHR UÜN IHM . " , RT 21 , 2; " WOLLEN 
SIE SIE MITNEHMEN? (J/N) " 

3910 IF INKEY *="" THEN GOTO 3910 
3920 IF INKEY $="U" THEN LET U=1 
3925_ IF INKEY $ = " J " THEN PRINT PT 

3930’ GOTO 3310 

3999 STOP 

4000 PRINT PT 7 



' ; RT 2 , x; " 
"; RT 5 , X ; " 


4W5"^S'CrSUB 3025 

4010 FAST 

4011 FÜR X =3 TO 29 

4012 PRINT RT 1 , X , ' 

; RT 3 , X; " " , PT 4 , X; 

, hT t* , a , 

4013 NEXT X 

4020 PRINT RT 13,7, "SIE WOLLEN D 
IE TUER" , RT 15 , 7, "OEFFNEN , DR FRE 
LLT DER" , RT 17,7; "DECKEL DES SfiR 
GES ZU ... ", PT 19,7; " UN D DIE TUER 
IST WEG..."; PT 21,3,"“ 


BITTE E 


INE TRSTE DPUECKEN < 


4000 bLW U B i--‘ 

4040 PRINT RT 23,0; 


4050 SLOW 
4060 GOSUB C 

4070 PRINT PT 13,7, "WOLLEN SIE N 
UN DURCH"; RT 15,7; "DIE UEISSE TU 
ER GEHEN", PT 17,7;"????????????? 
??????????" ; RT 19,5, "ODER ZURUEC 
K INS LPBYR INTH?" , PT 21,3;" LPBYR 
INTH=1 TUER =fl 
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4080 

4090 

4100 

4500 

4505 

4510 

4520 


IF INKEY * = *' 
IF INKEY* <> 
GOTO 3250 
CLc- 

GOSUB D 
FÜR N =0 TO 
PRINT 


" THEN GOTO 4030 
"T " THEN GOTO 50 


16 


4530 NEXT N 
4540 FOR N = 3 TO 7 
4550 PRINT RT N,2; 


” ; RT N , 10 


4560 NEXT N 
4570 FOR N =3 TO 16 
4580 PRINT RT N,21; 

4590 NEXT N 
4600 PRINT RT 10.. 26; "l“" 

4610 IF R = 0 THEN PRINT RT 16,8; M 

4620 PRINT RT 18,0, “SIE STEHEN I 
N EINEM UOELLIG DUNKLEN RhUM 

UND KOENNEN KRUM DIE HAN D UOR 

RÜGEN SEHEN... ' ' ; RT 22 ,0;"» 


RUECKEN SIE EINE TPSTE 


4to0 bOSUE' b 

4640 IF R =0 THEN GOTO 4900 

4645 GOSUB D 

4646 PRINT RT 13,0, "IM DUNKELN E 

RKENNEN SIE ABER DIE UMRISSE 

UÜN ZWEI FENSTERN UND EINER TU 

ER. WOHIN ? S=RECHTE5FENSTER,a=LI 
NKES FENSTER ,fl=TUER" 

4647 PRINT RT 22,0; " _ 

4650 IF INKEY * = "" THEN GOTO 4650 
4660 IF INKEY $="L" THEN GOTO 325 
0 

4665 IF INKEY $="T" THEN GOTO 300 
0 

4670 IF INKEY $="R" RND I< =3 RND 
U = 1 RND R = 1 THEN GOTO 8000 
4680 GOTO 5000 
4900 GOSUB D 

4905 PRINT RT 13,0, "DOCH URS IST 
DAS ????.... IM DUNKLEN S 

CH IMMERT DER GLANZ EINES RINGES 

WOLLEN SIE I 

HN MITNEHMEN ? (U/N)";RT 22,0," 


4910 IF INKEY $ = "" -THEN GOTO 4910 
4920 IF INKEY $="J" THEN LET R=1 
4930 IF INKEY $="ü" THEN PRINT RT 
13, 8; "1" 

4940 GOTO 4645 
5000 CLS 
5010 GOSUB 3035 
5020 FOR N=S TO 12 
5O30 PRINT RT N,20, 

5040 NEXT N 

5050 PRINT RT 4,3, " ; RT 

|"; RT 6,1; T I ", RT 7,0; ' 

; hT 8,8; " | I ", PT 9,0; " I 

10,0; " I J", pt n, 0 ; " 

5060 PRINT PT 13,8, "V 

4,7; PT 15,6; " , 

5070 PRINT RT 3,S;"00"TRl 
= " ; RT 5 , S ; " / " ; RT 6,7; "**■*•*"; RT 7 
7 • •• * ^ 

5075 PRINT RT 17,5; "IN DIESEM RR 
UM BEFINDEN", RT 18,5; "SICH EIN F 
ENSTER , EINE" ; RT 19,3, "GEHEIMTUER 
, UND EINE FALLTUER . ' 

50S0 IF U=0 THEN GOTO 5900 
5090 GOSUB D 

5100 PRINT RT 20,3; "WOHIN MOECHT 
EN SIE GEHEN ?",RT 2 1 , 3 ; " DRUECKE 
N SIE BITTE " , RT £ 2 , 2 ;"a.FUER D 
RS FENSTER ,B.FUER DIE" , RT 23,0;" 
GEHEIMTUER ,3. FUER DIE FALLTUER." 
5110 IF INKEY $ = " " THEN GOTO 5110 
5120 IF INKEY* s"F" THEN GOTO 450 
0 

5130 IF INKEY $="G" THEN GOTO 325 
0 

5140 IF INKEY $="T" RND I > =4 RND 
U = 1 RND R = 1 RND U = 1 THEN GOTO S0 
00 

5150 IF INKEY $="T" RND I<2 THEN 
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GOTO 6000 
5160 GOTO 7OÖ0 

5900 PRINT RT 15 , 15; M üQ M j RT 14,1 

t / / 

5910 GOSUB D 

5920 PRINT PT £0,3, "AUF DEM BODE 
N LIEGT DIE"; PT 2 1 , 3 j " BR ILLE IHR 
ES UPTERS . " ; PT 22,2; "WOLLEN SIE 
SIE MITNEHMEN? CJ/N) " 

5930 IF INKEY $=" " THEN GOTO 5930 
5940 IF INKEY $="J" THEN LET 0=1 
5945 IF INKEY $="U" THEN PRINT PT 
15, 15; M ” ; PT 14, 16, " “ 

5950 GOTO 5090 
6000 CLS 

6010 PRINT PT 6,3, "SIE SIND IN D 
EN BURGGRPBEN" ; PT S , 3; "GEFPLLEN 
UND KONNTEN SICH", PT 10,3; "NUR D 
PDURCH RETTEN, DPSfe SIE"; PT 12,3; 
"PN LAND GESCHWOMMEN SIND ...";P 
T 16,3, "MüECHTEN SIE ES NOCH EIN 
MAL"; PT 13,8, "UERSUCHEN ? Cü/N) " 
6020 IF INKEY $="" THEN GOTO 6020 
6030 IF INKEY $="J" THEN RUN 
6040 CLS 
6070 GOTO 8150 
7000 CLS 

7010 PRINT PT 6,3; " 

M BURGGRPBEN" ; PT S , . . 

", PT 10,2; "DOCH SIE 

KGENNEN SICH PN EINEM"; PT 12,3; 
" MP UERU URSPRUNG FESTHALTEN. . 

7020 FOR N =0 TO 30 
7030 NEXT N 

16,3; "SHi 
ä", PT 18, 

T 20,3, " 


SIE FALLEN DE 
3; "ENTGEGEN. 




>0 FOR N = 0 TO 60 
7060 NEXT N 
7070 LET U=0 


7080 LET R =0 
7090 LET U=0 
7100 GOTO 5000 

7999 STOP 

8000 CLS 
3010 GOSUB D 

8050 FOR N =0 TO 20 

8060 PRINT PT 3, 10, " HURRA ", PT 4, 

10;" " ; PT 3,10; nilRRE' ; PT 4, 


[HUPPRI 


3070 NEXT N 

3080 PRINT PT 6,5; "SIE HABEN IHR 
EN UPTER " ; PT 3,5; "GEFUNDEN UND K 
OENNEN IHN" PT 10 , 13 ; " BEFRE IEN . . 

3090 PRINT PT 13, 13, "**^**"; PT 14 

, 13; " 00 ", PT 15,13, ; PT 

16,13;" U ” , PT 17 , 13; "L 4“ 

3100 FOR N=0 TO 50 
8110 NEXT N 

8115 PRINT PT 16, 14; "PI" 

3120 PRINT PT 21,3; "DOCH DER FLU 
CH DES ZAUBERERS"; PT 23,3, "LIEGT 

AUF IHNEN " 

3130 FOR N =0 TO 70 
8140 NEXT N 
3150 GOSUB £000 

8160 PRINT PT 13,0, "U P H N 5 0 
F T - P R E 5 E N +".; PT 20,0; "T 
HE CASTLE 0 F";PT 21,3; " 
OUESTIONMPRKS" 

3170 FOR N =0 TO 4E4 
3 1S0 NEXT N 
3200 STOP 

9996 SPUE "H" 

9997 RUN 

9993 PQKE 16418,0 
9999 RETURN 


MATHEMAT - ein DATA-BECKER-Produkt 


Hausaufgaben leicht gemacht! 

Das Programm MATHEMAT, das 
von der Firma DATA-BECKER auf 
den Software-Markt gebracht wurde, ist 
ein vielseitiges Mathematikprogramm 
für den C 64, welches mit Hilfe einer 
umfangreichen Anleitung das Arbeiten 
mit diesem Programm sehr leicht 
macht. 

Unter dem Gesichtspunkt, Mathema- 
tik spielend lernen und verstehen, wur- 
de dieses Programm entwickelt und die 
Programmidee verwirklicht. 

Nach dem Laden des Programms er- 
scheint ein Hauptmenü auf dem Bild- 
schirm, in dem zwischen den sechs 
Funktionen Taschenrechner, Kurven- 
diskussion, Geometrie, Algebra, Ma- 
thematiklexikon und dem Dienstpro- 
gramm mit Hilfe der Cursor-Tasten ge- 
wählt werden kann. Nach der Auswahl 
eines dieser Menüpunkte ist die Re- 
turntaste zu drücken und die gewählte 
Funktion wird nachgeladen. Uber die 
Funktion - Dienstprogramm - lassen 
sich die Drucker- bzw. Floppyparame- 
ter verändern. 


Jede Eingabe wird immer mit F 1 abge- 
schlossen. Ein Überschreiben der Ein- 
gabefelder ist nicht möglich, so daß eine 
falsche Eingabe, ohne daß man sie be- 
merkt, kaum möglich ist. 

Zur Genauigkeit der Funktion TA- 
SCHENRECHNER sei hier erwähnt, 
daß dieser in der Lage ist, bis auf zehn 
Stellen hinter dem Komma genau zu 
rechnen. Da der C 64 normalerweise 
diese Genauigkeit nicht vorweisen 
kann, wurde mit Hilfe einer Pro- 
grammroutine die Ungenauigkeit des 
Rechners erheblich herabgesetzt. Die 
Berechnung von FLÄCHEN und 
KÖRPERN jeder Art sind mit diesem 
Programm ebenfalls kein Problem 
mehr. Sie geben die Ihnen bekannten 
Werte in den Rechner ein und dieser 
berechnet Ihnen die fehlenden Daten 
hinzu. Dies gilt ebenfalls für die Funk- 
tion GEOMETRIE. 

Mit der Funktion KURVENDISKUS- 
SION, die meines Erachtens die inter- 
essanteste dieses Programms ist, lassen 
sich die Flächen über bzw. unter einer 
Funktion genauso bestimmen, wie 


Nullstellen, Extremwerte und andere 
Kriterien, die zur Kurvendiskussion 
dazugehören. In dieser Funktion ist 
auch die Möglichkeit des Ausdruckes 
der gewählten Kurve bzw. der Fläche 
über oder unter der Kurve gegeben. 
Unter dem Menüpunkt MATHELEXI- 
KON sind Kurzbeschreibungen ver- 
schiedener Mathematikregeln gespei- 
chert, die zum Verständnis der zugehö- 
rigen Regeln beitragen. 
Zusammenfassung 

Mit dem Programm Mathemat der Fir- 
ma DATA-BECKER können umfang- 
reiche Berechnungen bei hoher Genau- 
igkeit durchgefiihrt werden. Für dieje- 
nigen, die den Weg zur Lösung ihrer 
Funktion bereits aus dem Mathematik- 
Unterricht kennen, ist der Mathemat 
durchaus eine nützliche Hilfe zur Kon- 
trolle ihrer Lösung. Diejenigen jedoch, 
die dem Irrtum verfallen sind, daß der 
Mathemat Ihnen Ihre Hausaufgaben 
komplett mit Lösungsweg in der Art 
erstellt, wie es im Unterricht gefordert 
wird, die sollten sich wohl doch lieber 
noch eine Weile mit Ihrem MATHEM- 
AT-ik-Buch beschäftigen. (RFB) 
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Multi-Key 64 

Multi-Key 64 ist eine Erweiterung, die auf jedem C-64 
und SX-64 Executive lauffähig ist. 


Sie ermöglicht es, auf jede beliebige 
Taste des Computers (z. B. F1-F8, C, 
A ...) einen Basisbefehl (z. B. OPEN, 
LIST + Return, RUN + Return ...) zu 
lesen. Ein weiterer Vorteil ist es, daß die 
abgelegten Befehle mit einem zusätzli- 
chen , RETURN’ belegt werden kön- 
nen. D. h., sobald man die belegte Taste 
drückt, wird der Befehl auf den Bild- 
schirm ausgegeben und gleich ausge- 
führt (z. B. RUN + Return). 

Wie bereits gesagt, können diese Befeh- 
le nicht nur z. B. auf Fl abgelegt wer- 
den, sondern auch z. B. auch auf CTRL 
+ Fl bzw. auf Commodore + Fl oder 
auch auf CTRL + Commodore + Fl. 
Diese Möglichkeit bedeutet, daß man 
anstatt nur einen Befehl pro Taste nun 
4 Befehle pro Taste speichern kann. 
Aber nicht nur das Belegen der Funk- 
tionstasten ist möglich. Sie können z. B. 
auch Befehle auf die Tasten ,C’ oder ,E’ 
legen. 

Die Tasten sind wie folgt definiert: 

1. Befehl z. B. Fl 

2. Befehl Shift + Fl 

3. Befehl CTRL + Fl 

4. Befehl Shift + CTRL + Fl 

5. Befehl Commodore + Fl 

6. Befehl Commodore + CTRL + 

Fl 


Folgende Tasten sind mit Funktionen 
belegt: 

CTRL + C 
Catalog/Directory 
CTRL + A 

Auto-File (gibt nach Load“,... den letz- 
ten Filenamen mit ,8,8 + Return 
CTRL + Pfeil nach 1. 

TAB-Funktion 
CTRL + Run/Stop 
ESC-Funktion 
CTRL + Fl 

setzt die Bildschirmfarbe auf CYN/ 
WHT 

CTRL + F3 

verändert Bildschirmrahmenfarbe- 
CTRL + F5 

verändert Bildschirmhintergrundfarbe 
CTRL + F7 

läd erstes Programm von Diskette 
(LOAD ,8,8 + RETURN) 

Da einige Tasten-Funktionen die Ver- 
wendung einer Floppy-Disk vorausset- 
zen, ist es möglich, durch Ändern der 
folgenden Programmzeilen Multi-Key 
(bis auf die Funktion Catalog) auf Kas- 
settenbetrieb umzurüsten. 

355 DATA 234, 192, 76, 79, 65, 68, 34, 
42, 34, 44, 49, 44, 49, 95, 86, 69, 82 
405 DATA 71, 40, 0, 64, 140, 193, 
-1,86142. 


Die Belegung der Tasten: 
Fl = POKE 
F2 = PEEK< 

F3 = GOSUB 
F4 = RETURN 
F5 = RUN ,retum’ 

F6 = SAVE“ 

F7 = LIST ,retum’ 

F8 = LOAD“ 


CTRL + Fl : 
CTRL + F2 = 
CTRL + F3 = 
CTRL + F4 : 
CTRL + F5 = 
CTRL + F6 : 
CTRL + F7 : 
CTRL+F8: 


OPEN 

CLOSE 

NEXT 

RESTORE 

TAB< 

SPC< 

DATA 

READ 


C + CTRL + Fl = 
C + CTRL + F2 = 
C + CTRL + F3: 
C + CTRL+F4: 
C + CTRL + F5 : 
C + CTRL + F6 : 
C + CTRL + F7 : 
C + CTRL + F8 = 


VERIFY“ 

PRINT# 

INPUT 

INPUT# 

LEFT$< 

RIGHT$< 

MID$< 

CONT ,return’ 


10 

11 

12 

12 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
30 
35 
40 
50 
60 
?0 
80 


COPYRIGHT 1984 BV 
THOMAS GIGGE 


PROGRAMM : 

MULTI -KEY •'S 64 


rem ***** 

REM ******* 

REM *** ***** 

REM ** **** 

REM ** 

REM ** **** 

REM *** ***** 

REM ******* 

REM ***** 

REM 
REM 
REM 
REM 
REM 
REM 

PÜKE53280; 0 : PÜKE53281 > 0 ; PRlNT’Tlil *** SHULTI-KEY FUNKTIONEN^ ***" 

PR I NT " ÄDSftlll NEU START DURCH «SYS 4915211." 

PR INT "HÖH BITTE WARTEN ! " 

AD-49152: RESTORE 

READ A : I F flO- 1 THENPÜKEAD , A : SU=SU+A : AD*AD+ 1 : GQTQ60 
READ A : IF SUttfl THEN PRINT" SD ATA FEHLER !":END 
POKE53280 j 3 : P0KE5328 1 > i : PR I NT " TM " i :SYS 49152 


LAUFFAEHIG AUF JEDEN CBM 64 
UND JEDEN SX-64 EXECUTIVE 
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,62, 

0, 

189, 

28, 

192, 

201, 

0, 

240, 

6, 

32, 

210, 

255, 

232, 

208, 

243, 

120, 

169 

69, 

1 62 , 

192, 

141, 

20, 

3, 

142, 

21, 

3, 

88, 

96, 

77, 

85, 

76, 

84, 

73, 

45 

75, 

69, 

89, 

i 

83, 

32, 

70, 

79, 

82 , 

32, 

67, 

45, 

54, 

52, 

oo 

Oc. i 

38, 

32 

83, 

88, 

45, 

54, 

52, 

32, 

66, 

89, 

32, 

84, 

72, 

46, 

71, 

73, 

71, 

71, 

69 

0, 

165, 

197, 

201, 

64, 

208, 

3, 

76, 

49, 

234, 

141, 

255, 

207, 

173, 

141, 

2, 

141 


90 END 
100 DftTfi 
105 DftTfi 
110 DftTfi 
115 DftTfi 
120 DftTfi 

125 DftTfi 254,207.234,234. 120. 169, 49,162,234,141, 20, 3,142, 21, 3, 88,162 

130 DftTfi 0,189, 0,193,201,255,240, 64,205,254,207,208, 8,189, 1,193,205 

135 DftTfi 255,207,240, 5,232,232, 76,103,192,173,204, 0,201, 1,240, 39,189 

140 DftTfi 0,194,133, 16,189, 1,194,133, 17,160, 0,177, 16,201, 0,240, 15 

145 DftTfi 201, 95,240, 23,201, 64,240, 31, 32,210,255,200, 76, 147, 192, 165, 197 
150 DftTfi 201, 64,208,250, 32, 15,192, 76, 49,234,169, 13,141,119, 2,169, 1 

155 DftTfi 133,198, 76, 168, 192, 200, 177, 16,141,205,192,200,177, 16, 141 , 206, 192 
32,244,194, 76,168,192,169, 3,141, 32,208,169, 1,141, 33,208,169 


165 

DftTfi 

144, 

32 , 

210, 

255, 

96, 

238, 32, 

208, 

96, 

238, 

33, 

208, 

96, 

169, 

0, 

133, 

212 

170 

BflTfl 

133, 

216, 

96, 

169, 

39, 

133,211, 

96, 

0,, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

175 

DftTfi 

183, 

0, 

3, 

0, 

6, 

0, 4, 

1, 

4, 

0, 

5, 

1 J» 

5, 

1, 

6, 

1, 

3 

180 

BflTfi 

4, 

4, 

5, 

4‘, 

4, 

5, 5, 

5, 

4 , 

6, 

5, 

6, 

4, 

3 ; 

5, 

3 ; 

2 

185 

DflTfi 

4, 

2, 

5, 


6, 

4, 63, 

2, 

3, 

6, 

4, 

7, 

4, 

6, 

5, 

7, 

5 

190 

DftTfi 

6, 

6, 

7, 

6, 

6 , 

3, 7, 

3 ; 

4, 

57, 

4, 

10, 

4, 

42, 

5, 

42, 

4 

195 

DftTfi 

9 i 

4, 

26, 

4, 

30, 

4, 21, 

5, 

21, 

4 ; 

41, 

4, 

33, 

4, 

31, 

5, 

20 

200 

DftTfi 

iS; 

20, 

7, 

20, 

4, 

20,255, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

205 

DftTfi 

0, 

0, 

0, 

0, 

0, 

0, 0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

210 

DftTfi 

0, 

0, 

0, 

0, 

0, 

0, 0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

215 

DftTfi 

0, 

0, 

0, 

0, 

0, 

0, 0, 

0, 

0, 

0, 

0, 

169, 

13, 

32, 

210, 

255, 

169 

220 

DflTfi 

36, 

133 , 

251, 

169, 

251, 

133, 187, 

169, 

0, 

1 ; 

188, 

169, 

1, 

133, 

183, 

169, 

8 


225 DftTfi 133,186,169, 96,133,185, 32,213,243,165,18 6, 32,180,255,165,185, 32 
230 DftTfi 150,255,169, 0,133,144,160, 3,132,251, 32,165,255,133,252,164,144 
235 DftTfi 208, 47, 32,165,255,164,144,208, 40,164,251,136,208,233,166,252, 32 
240 DftTfi 205,189,169, 32, 32,210,255, 32,165,255,166,144,208, 18,170,240, 6 
245 DftTfi 32,210,255, 76, 227, 193, 169, 13, 32,210,255,160, 2,208,198, 32, 66 
250 DftTfi 246, 96, 0,195, 5,195, 9,195, 14,195, 20,195, 26,195, 33,195, 39 
255 DftTfi 195, 45,195, 50,195, 56,195, 61,195, 69,195, 74,195, 79,195, 84,195 
260 DftTfi 89,195, 92,195, 95,195, 98,195,101,195,113,195,121,195,128,195,134 
265 DftTfi 195, 141, 195, 148, 195, 156, 195, 162, 195, 167, 195, 170, 195, 173, 195, 11,196 
270 DftTfi 178, 195, 183, 195, 188, 195,217, 195,221,195,236, 195,231,195,212, 195,250 


275 DftTfi 195,246,195,241,195, 16,196,255, 


280 

DflTfi 

0, 

0, 

0, 

0, 

0, 

285 

DftTfi 

0, 

0, 

0, 

0, 

0, 

290 

DflTfi 

0, 

0, 

0, 

0, 

0, 

295 

DftTfi 

0, 

0, 

0, 

0, 

0, 

3Ö0 

DftTfi 

0, 

0, 

0, 

0, 

0, 


305 DftTfi 
310 DftTfi 
315 DftTfi 
320 DftTfi 
325 DftTfi 
330 DftTfi 
335 DftTfi 
340 DftTfi 
345 DftTfi 
350 DftTfi 
355 DftTfi 
360 DftTfi 
365 DftTfi 
370 DftTfi 
375 DftTfi 
380 DftTfi 
385 DflTfi 
390 DftTfi 
395 DftTfi 
40ü DftTfi 
405 DftTfi 


0 , 0 , 


0 , 


0 , 0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


0 , 
0 , 
0 , 
0 , 
0 , 
0 , 
0 , 


0 , 
0 , 
0 , 
0 , 
0 , 
0 , 
0 , 


0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 


ü 

0 

0 

0 

0 

0 

0 


0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

160, 

0, 

177 

187, 

1 96 , 

183, 

240, 

7, 

32, 

210, 

255, 

200, 

76, 

218, 

194, 

169, 

107, 

162, 

195, 

133 

16, 

134, 

17, 

104, 

104, 

76, 

145, 

192, 

169, 

20, 

32, 

210, 

255, 

76, 

216, 

194, 

255 

255, 

255, 

255, 

76, 

73, 

83, 

84, 

95, 

82, 

85, 

78, 

95, 

80, 

79, 

75, 

69, 

0 

80, 

69, 

69, 

75, 

40, 

0, 

71, 

79, 

83, 

85, 

66 , 

0, 

82, 

69, 

84, 

85, 

82 

78, 

0, 

83, 

65, 

86, 

69, 

34, 

0, 

76, 

79, 

65, 

68, 

34, 

0, 

79, 

80, 

69 

78, 

0, 

67, 

76 , 

79, 

83, 

69, 

0, 

78, 

69, 

88 , 

84, 

0, 

82, 

69, 

83, 

84 

79, 

82, 

69, 

0, 

84, 

65, 

66 , 

40, 

0, 

83, 

80, 

67, 

40, 

0, 

68, 

65, 

84 

65, 

0, 

82, 

69, 

65, 

68, 

0, 

64, 

210, 

192, 

64, 

226 , 

192, 

64, 

230, 

192, 

64 

234, 

192, 

76, 

79, 

65, 

68, 

34, 

4<£! ; 

34, 

44, 

56, 

44, 

56, 

95, 

86, 

69, 

82 

73, 

70, 

89, 

34, 

0, 

80, 

82, 

73, 

78, 

84, 

35, 

0, 

73, 

78, 

80 , 

85, 

84 

0, 

( 3 , 

78, 

80, 

85, 

84, 

35, 

0, 

76, 

69, 

70, 

84, 

36, 

40, 

0, 

82, 

73 

71, 

72, 

84 , 

36, 

40, 

0, 

77, 

73, 

68, 

36, 

40, 

0, 

67, 

79, 

78, 

84, 

95 

64 , 

241 , 

192, 

64, 

244, 

194, 

76, 

69, 

78, 

40, 

0, 

87, 

65, 

73, 

84, 

0, 

71 

79 j 

84, 

79, 

0, 

85, 

83, 

82, 

40, 

0, 

65, 

83, 

67, 

40, 

0, 

65, 

66 , 

83 

40^ 

0, 

65, 

84, 

78, 

40, 

0, 

65, 

78, 

68, 

0, 

86, 

65, 

76, 

40, 

0, 

70 

79, 

82, 

0, 

70, 

82, 

69, 

40, 

0, 

69, 

88, 

80, 

40, 

0, 

73, 

78, 

84, 

40 

0, 

80, 

79, 

83, 

40, 

0, 

67, 

79, 

83, 

40, 

0, 

67 , 

76, 

82, 

0, 

67, 

72 

82, 

36, 

40, 

0, 

78, 

69, 

87, 

0, 

78, 

79, 

84, 

0, 

79,' 

82 , 

0, 

76, 

79 

71, 

40, 

0, 

64 j 

146, 

193, 

“1, 

86156 
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Interrupt-Programmierung 

Eines der interessantesten Gebiete der Programmierung des C-64 ist die 
Interrupt-Programmierung. Hierbei handelt es sich um ein Program- 
miergebiet, das von vielen Assemblerprogrammierern gemieden, obwohl 
gerade die Interrupt-Programmierung es ermöglicht, sinnvolle zusätzli- 
che Utilities in den Rechner zu implementieren. 


Doch was versteht man nun eigentlich 

unter einem Interrupt? 

Interrupt heißt zu deutsch Unterbre- 
chung. Aber was wird unterbrochen? 

Nun ersteinmal unterscheidet man vier 

Formen der Unterbrechung: 

1. RESET 

2. NMI (Non Maskable Interrupt) 

3. BRK (Break) 

4. IRQ (Interrupt Request) 

Erläuterungen zu: 

1 . Bei dieser Form des Interrupts han- 
delt es sich um einen hardwaremäßi- 
gen Interrupt (z. B. durch Über- 
brückung der Pins 1 (GND) und 3 
(RESET) am Userport mittels eines 
Schalters. Siehe dazu auch C-64 
Handbuch). Dieser Interrupt kann 
softwaremäßig nicht unterdrückt 
werden und führt zur erneuten Initia- 
lisierung des Computers und somit 
zur Einschaltmeldung. 

2. Der nicht maskierbare, d. h. unbe- 
dingte Interrupt wird durch Drücken 
der „RESTORE“-Taste ausgelöst. 

* Die Adresse in die zu verzweigende 
Interrupt-Routine kann aus den 
Speicherzellen $318/$319 (792/793) 
ausgelesen und geändert werden, und 
zwar so, daß sie z. B. auf eine eigene 
erweiterte Interrupt-Routine zeigt. 

3. Diese Form des Interrupts nennt 
man auch Softwareinterrupt. Diese 
Unterbrechung kann von einem Ma- 
schinenprogramm ausgelöst werden, 
nämlich in dem Moment, indem der 
Prozessor auf den Befehl BRK trifft. 
Hierbei wird wieder ein indirekter 
Adressensprung ausgelöst, der in den 
Speicherzeilen $316/$317 (790/791) 
zu finden ist. 

4. Diesen Interrupt bezeichnet man als 
maskierbaren Interrupt. Maskierbar 
bedeutet, daß per Software entschie- 
den werden kann, ob ein Interrupt 
ausgelöst wird oder nicht. Er ist also 
ein- und ausschaltbar durch Befehle 
CLI (Clear Interruptflag - ermögliche 
Interrupt) und SEI (Set Interruptflag 
- verhindere Interrupt). 


Der C-64 gestattet es durch mehrere 
Register zu entscheiden, durch welche 
Ursache der Interrupt ausgelöst werden 
soll. Der geläufigste Einsatz dieses In- 
terrupts ist z. B. bei der Spieleprogram- 
mierung der Zusammenstoß von zwei 
Sprites. 

Doch der wohl am häufigsten ausgelö- 
ste Interrupt ist der, der durch die Ti- 
mer der CIAs ausgelöst wird. Dies ge- 
schieht jede 60stel Sekunde. 60 mal pro 
Sekunde wird das normale Programm, 
also ein laufendes Basic- oder Maschi- 
nenprogramm, unterbrochen, um mit- 
tels eines indirekten Sprunges (die 
Adresse des Sprunges ist in den Spei- 
cherzellen $314/$315 (788/789) zu fin- 
den) in die ROM-Routine zu springen 
und diese auszuführen. Durch diese 
IRQ-Routine wird z. B. das Blinken des 
Cursors geregelt, die interne Uhr ge- 
stellt, die Tastatur abgefragt, etc. 

Nur so ist überhaupt eine Eingabe mög- 
lich. - 

Genau hier können wir uns „reinhän- 
gen“, indem wir die indirekte Adresse 
der IRQ-Routine des Betriebssystem 
auf eine eigene Interrupt-Routine zei- 
gen lassen. 

Die eigene neue Routine, die eine Er- 
weiterung zur alten IRQ-Routine brin- 
gen soll, darf aber inclusive der alten 
Routine nicht länger als 1/60 Sekunde 
sein, da sonst bereits ein neuer Inter- 
rupt ausgelöst würde, während der vor- 
hergehende Interrupt noch nicht been- 
det ist. Dies führt zu einem Systemab- 
sturz, zu dessen Elemenierung wir wie- 
der den erstgenannten Interrupt (RE- 
SET) benötigten oder den Computer 
ausschalten müßten. 

Eine lange Interrupt-Routine macht 
sich auch in der verlangsamten Ausfüh- 
rung des Hauptprogrammes bemerk- 
bar. 

Doch um soviel Theorie einmal prak- 
tisch am Beispiel zu erklären, habe ich 
folgende Programme geschrieben. 

Mich hat es immer schon gestört, daß 
ich nur per Poke-Befehl die Farben auf 


dem Bildschirm ändern konnte, so wie 
ich es als angenehm für die Augen emp- 
fand, und nicht per Tastendruck (z. B. 
mit den Funktionstasten). Dabei ist 
diese Programmrealisierung recht ein- 
fach zu gestalten, wie sich unschwer im 
Programm erkennen läßt. 

Da ich keinen Basic-Speicher verlieren 
wollte, und den Cassettenbuffer noch 
benötigte, habe ich das Programm in 
den für Basic nicht zugänglichen 4K- 
Bereich, der sich von $C000-$CFFF 
(49152-53247) erstreckt, gelegt. 

Als Erstes wird die neue Interrupt-Rou- 
tine initialisiert. Dabei ist auf jeden Fall 
darauf zu achten, daß während der Än- 
derung des Interruptvektors ein mögli- 
cher Interrupt mit dem Befehl SEI ge- 
sperrt wird. Würde nämlich ein Inter- 
rupt ausgelöst, wenn das LOW-Byte des 
IRQ-Vektors schon auf den neuen Wert 
zeigt, während das HIGH-Byte des 
IRQ-Vektors noch auf die alte Routine 
weist, so würde an eine Undefinierte 
Stelle gesprungen und der Rechner wür- 
den „abstürzen“. 

Ist auch das HIGH-Byte gesetzt, so 
wird der Interrupt mit CLI wieder frei- 
gegeben und wir kehren mit RTS zum 
Hauptprogramm zurück. Ab jetzt ist 
die neue Interrupt-Routine implemen- 
tiert. Aktivieren können wir unsere 
Routine mit dem Aufruf SYS 12*4096. 
Beim nächsten Interruptaufruf ge- 
schieht nun folgendes: 

Der Computer prüft, ob eine der Son- 
derfunktionstasten Fl, F3 oder F5 ge- 
drückt wurde. Ist dies nicht der Fall, so 
wird zur alten Interrupt-Routine wei- 
terverzweigt, ansonsten wird in die je- 
weilige Routine verzweigt. Ist die ent- 
sprechende Routine ausgeführt, es hat 
also ein Farbwechsel der Innen-, Au- 
ßen- oder Schriftfarbe stattgefunden, so 
wird ebenfalls wieder in die alte Inter- 
rupt-Routine verzweigt, damit die übri- 
gen Funktionen des Computers kon- 
trolliert und ausgeführt werden können. 
Dieses Interruptprogramm läuft nun 
völlig unabhängig von einem weiteren 
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Basic- oder Maschinenprogramm, so- 
lange, bis der Interrupt-Vektor $314/ 
$315 wieder auf den alten Wert zurück- 
gesetzt wird. Dies kann durch einen 
RESET oder durch Drücken der RUN/ 
STOP-RESTORE-Tasten geschehen. 
Eines sei hierbei noch erwähnt. Wird 
ein RESET ausgelöst, so wird der Com- 
puter zwar neu initialisiert, aber das 
RAM ist, bis auf die ersten drei Bytes 
des Basic-Speichers, davon ausgenom- 
men. D. h., daß das Programm noch im 
Speicher vorhanden ist, und mit SYS 
12*4096 erneut aufgerufen und initiali- 
siert werden kann. 

War vor dem RESET noch ein Basic- 
programm im Speicher vorhanden, so 
ist es möglich, dies wieder zurückzuho- 
len. Es müssen Byte 2049 und Byte 


2050 neu gesetzt werden mit der Starta- 
dresse der nächstfolgenden Basiczeile. 
Maschinenprogramm dafür sind in den 
letzten Monaten in einigen Computer- 
zeitschriften erschienen. 

Wäre dies nicht eine Idee für eine neue 
zusätzliche Interrupt-Routine? Auf Ta- 
stendruck wird ein altes Basicpro- 
gramm reaktiviert. Warum eigentlich 
nicht? 

Sie sehen also, der Phantasie sind keine 
Grenzen gesetzt für neue Ideen der In- 
terruptprogrammierung. Sehen man- 
che Probleme auch kompliziert aus, 
meist findet sich eine schnelle Lösung, 
die die berühmte 1/60 Sekunde unter- 
bietet. 

Ein weiteres Beispiel für eine Ihterrupt- 
programmierung ist eine durch die Ti- 


mer der CI As gesteuerte Uhr, die konti- 
nuierlich oben rechts auf dem Bild- 
schirm ausgegeben wird. Die Idee dazu 
war reiner Selbstzweck. Wer kennt das 
nicht? Da „brütet“ man Uber seinen 
Computer und verliert jegliches Zeitge- 
fühl. Diese Uhr wird hoffentlich dies 
Problem abgestellt. 

Vor der eigentlichen Zeitausgabe wird 
die Farbe der Uhr (von 1-15) und die 
Uhrzeit (in HHMMSS) eingegeben. 
Anschließend startet sie. 

Also viel Spaß bei der eigenen Pro- 
grammierung von Interrupt-Routinen. 
Lassen Sie Ihrer Kreativität freien Lauf. 
Sie werden sehen wieviele Möglichkei- 
ten es gibt. 

Jens Müggenborg 


100 
120 
120 
140 
150 
1 70 
190 
210 
220 
240 
260 
270 
280 
200 
310 
320 
340 
350 
360 
380 
390 
410 
420 
430 
450 
460 
470 
430 
490 
500 
510 
520 
530 
540 
550 
560 
570 
530 
590 
600 
610 


REM 

mmmmmmmmmmmmm mmmmmmmmmmmmmmmmmmmmmmmmmm 

REM 

mmm 


MMM 

REM 

mmm 

PROGRAMM I ERBAEE I NTERRUPT-UHR 

MMM 

REM 

*** 


MM 

REM 

*** 

JENS MUEGGENB0RG 

MMM 

REM 

mmm 

WALDDOERFERSTRflSSE 349 

MMM 

REM 

**« 

2000 HAMBURG 70 

MMM, 

REM 

*** 

HAMBURG, DEN 30.07.1984 

MMM 

REM 

MMM 


MMM 

REM 

MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

REM 




REM 

EILDSCHIRMTEXT 


REM 





PRINT" rHÖMNACH ABLAUF BES PROGRAMMS ERSCHEINT OBEN »RECHTS DIE UHRZEIT" 

PR INT "mm IT SYS 51200 KQENNEN SIE DIE UHR EIN MUND AUSSCHALTEN" 

PR I NT " JMUNB MIT SYS51200 ' HHMMSS" FARBCODE »STELLEN" 

REM 

REM EINLESESCHLEIFE 
REM 

X»0 ; F0RI= 51200 TO 51482 : REABA : PQKE I , A : X=X+A : NEXT 

IFXO 33213 THENPR INT "DATA-FEHLERI": STOP 

REM 

REM BATEN BES MASCHINENPROGRAMMS 
REM 

DATA 173, 14,220,9, 128, 141,14,220, 173, 15,220,41,127,141,15,220,32, 121, ,240 
DATA101 , 32,253, 174,32, 158, 173,32, 163, 182,201,6,208, 107, 160, , 177,34,56 
DATA233, 48,201 , 3, 176,96, 10, 10, 10, 10, 133,248,200, 177,34,56,233,48,201, 10 
DATA 176, 30, 5, 243,208, 4, 169, 146,208, 15,201,36, 176,68,201,19, 144,7,56,248 
DATA233, 18,216,9, 128, 141, 11,220,32,253,200, 141, 10,220,32,253,200, 141,9 
BATA220, 169, , 141,8,220,32, 121, ,240, 13,32,253, 174,32, 158, 183,224, 16, 176 
DATA22 , 142, 167,2, 120, 173,20,3,73, 161,141,20,3, 173,21,3,73,34, 141,21,3 
BATA88, 96, 76, 72, 178, 165,251,72, 165,252,72, 173, 136,2, 133,252, 169, , 133,251 
DATA 160,30, 173,11,220,201,18,240, 17,201,128, 144, 15, 41 , 127, 201 , 18, 240, 9 
BATA248, 24, 105, 18,216,208,2, 169, ,32,219,200, 173, 10,220,32,219,200, 173 
DATA9, 220, 32,219,200, 173,8,220,9,48,32,243,200, 104, 133,252, 104, 133,251 
BATA76, 49, 234, 72, 41, 240, 74, 74, 74, 74, 24, 105,48,32,243,200, 104,41,15,24 
DATA 1 05 , 48 , 32 , 243 , 200 , 169,58, 145,251, 173, 167,2, 153, , 216, 200, 96, 200, 177 
BATA34 , 56 , 233 , 48 ,201,6, 176, 134, 10, 10, 10, 10, 133,248,200, 177,34,56,233,48 
BATA201, 10, 176,238,5,248,96,255 
REM 
REM 
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6 20 
630 
640 
650 
660 
670 


REM ÜHRZEIT EINGABE 


REM 

REM 

INPUT "MMFHRBE " 
I NPUT " MWJHRZE 1 1 
REM 


Ffl 

CHHMM3S) 


6S0 REM 


" i UZ$ 


690 REM STARTEN DES MASCHINENPROGRAMMS 
700 REM 
710 REM 

720 SVS5 1 200 . UZt . FA 


100 

120 

130 

140 

160 

180 

200 

220 

230 

250 

270 

280 

290 

310 

320 

330 

340 

350 

360 

370 

390 

400 

430 

460 

490 


INTERRUPT-PROGRAMM ZUM BILDSCHIRM- 
FARBWECHSEL MITTELS FUNKTIONSTASTEN 
JENS MUEGGENBORG 
WALDDOERFERSTRASSE 349 
2000 HAMBURG 70 
HAMBURG. DEN 02.08.1984 


M* 

*** 

*** 

m*. 


REM 
REM 
REM 

REM «*« 

REM *.m 
REM *** 

REM *** 

REM 

REM ftikft 
REM 
REM 
REM 
REM 

DATA 120. 169. 13. 141.20.3. 169. 192. 141.21.3.88.96. 165.203.201.4.240 
DATA 11.201.5.240. 12.201.6.240. 13.76.49.234. 160.1.76.43. 192. 160.2 
DATA 76.70. 192.76.80. 192. 174.32.208.224. 15.208.26. 162.0. 192.1.208.8 
DATA 142.32.208. 160.0.76.49.234. 142.33.208.76.59. 192. 174.33.208.76 
DATA 46. 192.232.76.52. 192. 169.0. 133.36. 169.216. 133.37. 173.0.216.201 


DATEN DES MASCHINENPROGRAMMS 


DATA 15.208.22. 169.0. 141.134.2. 162.4. 160.0. 145.36.200.208.251.230 

DATA 37.202.208.244.76.49.234.24. 105.1.76.97. 192 

REM 

REM EINLESESCHLEIFE 

FÜR 1=49 152 TO 49274: READ A : POKEI . A : NEXT I 
REM STARTEN DES MASCHINENPROGRAMMS 
SVS 12*4096 


S-TOOL 64 

S-TOOL 64 stellt ein nützliches Hilfsmittel zur Erstellung 
und beim Debuggen von BASIC-Programmen dar. 


Dieses Programm beinhaltet neben den 
wichtigsten Toolkit-Funktionen wie 
Trace, Find, Renumber, Auto, Dump 
usw. eine Turbo-Tape-Routine (Data- 
sette ca. 10 x schneller) sowie Befehle 
zur vereinfachten Handhabung der 
Floppy (Status abfragen, Catalog, Mer- 
ge). Ein zusätzlicher Vorteil gegenüber 
anderen Toolkit-Programmen ist, daß 
es keinen BASIC-Speicherplatz belegt. 
Um das ca. 3,8 K lange Programm ein- 
geben zu können, mußte der etwas be- 
schwerliche Weg über DATA-State- 
ments gewählt werden. Da jedoch jede 
DATA-Zeile auf korrekte Eingabe 


überprüft wird und dadurch Tippfehler 
sofort erkannt werden, dürfte die Ein- 
gabe außer einiger Tipparbeit keine all- 
zu großen Probleme bereiten. 

Genaue Eingabe- 
beschreibungen: 

Geben Sie zunächst Programm 1 (Li- 
sting 1) ein. Haben Sie alle Daten rich- 
tig eingegeben, so meldet sich das Pro- 
gramm nach einiger Zeit mit: 

DATEN IN ORDNUNG - 
JETZT PROGRAMM 2 EINGEBEN 


Löschen Sie nun Programm 1 mit - 
NEW -, geben Sie Programm 2 ein und 
starten Sie es. Dieses Programm macht 
aus dem Maschinenprogramm ein 
leicht abspeicherbares BASIC-Pro- 
gramm. Ist dieses Programm korrekt 
eingegeben, so meldet es sich wiederum 
mit 

DATEN IN ORDNUNG 
JETZT ALLE ZEILEN BIS AUF 
ZEILE 1000 LÖSCHEN! 

Wichtig ist, daß nun kein NEW einge- 
geben wird, sondern die Zeilen von 
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Hand gelöscht werden. (Das KILL- 
Kommando des Toolkits darf hier 
nicht verwendet werden!) 

Haben Sie die Zeilen gelöscht, so sieht 
ihr Programm folgendermaßen aus: 
1000 A=PEEK(45)+PEEK(46)*256-29: 
SYS A:NEW 

Ein Abfragen mit PRINT FRE (0) 
müßte ungefähr -30782 ergeben. Ist 
dies der Fall, so können Sie das Pro- 
gramm unter dem Namen „S-TOOL 
64“ auf Diskette oder Datasette abspei- 
chern. Es kann dann später wie ein 
normales BASIC-Programm kopiert, 
geladen und gestartet werden. 

Nach RUN wird folgende Meldung 
ausgegeben: 

**** S-TOOL 64 / V 2.0 **** 

1984 (C) BY S. HÄEFELINGER 
READY. 

Die Toolkit-Befehle stehen nun zur 
Verfügung. Diese Befehle werden 
grundsätzlich durch einen vorgestellten 
Punkt gekennzeichnet und bestehen aus 
einem Buchstaben. 

Hier die Befehle im 
einzelnen: 

Toolkit-Befehle: 

Aufheben des NEW-Befehls: 

Befehl: .O(ld) 

Form: .O 

Falls man ein Programm versehentlich 
gelöscht hat, so holt dieser Befehl das 
alte Programm zurück. 

Ausgabe aller Variablen und deren 
Werte 

Befehl: .D(ump) 

Form: .D 

Alle Variablen und deren Werte werden 
angezeigt. Hat man ein Programm un- 
terbrochen, so kann man, nachdem 
man sich die Variablen angesehen hat, 
das unterbrochene Programm mit 
CONT fortsetzen. 

Einen Programmbereich löschen 

Befehl: .K(ill) 

Form: .K bereich 

Der angegebene Bereich wird gelöscht. 
Die Angabe des Bereichs erfolgt wie bei 
LIST, also z. B.: 

.K 1000- löscht Zeile 1000 und alle ihr 
folgenden Zeilen 

.K 10-50 löscht (einschließlich) die 
Zeilen 10 bis 50 

.K-1000 löscht Zeile 1000 und alle 
vorherigen Zeilen 


Programm nach einem BASIC-Code 
bzw. einem String durchsuchen 

Befehl: .F(ind) 

Form: .F Suchstring, Bereich 

Alle Zeilen, die den Suchstring bzw. 
den BASIC-Befehl enthalten, werden 
aufgelistet. Durch Drücken der Com- 
modore-Taste kann das Auflisten un- 
terbrochen und durch erneutes 
Drücken fortgesetzt werden. Die Anga- 
be eines Bereichs, in dem gesucht wer- 
den soll, ist optionnel. 

- Renumber - eines Programms 

Befehl: .R(enumber) 

Form: .R Startnummer, Schrittweite 

Das Programm wird neu durchnume- 
riert. Alle GOTOs GOSUBs, , IF 
...THENs usw. werden mitnumeriert. 
Fehlt die Angabe der Schrittweite, so 
wird in Zehnerschritten numeriert. 
Fehlt die Startnummer, so wird mit der 
Zeilennummer 10 begonnen. 

Bei langen Programmen dauert das Nu- 
merieren schon einige Zeit - denken Sie 
somit nicht, der Rechner sei „abge- 
stürzt“, wenn er sich nicht sofort wieder 
meldet. 

Automatische Zeilenvorgabe 

Befehl: .A(uto) 

Form: .A 

Nach der Eingabe von .A erscheint zu 
Beginn der nächsten Zeile die erste au- 
tomatisch erzeugte Zeilennummer. 
Diese erste generierte Zeilennummer 
ist um 10 höher als die höchste im 
Programm vorkommende Zeile. Nach 
Eingabe der Zeile wird in der folgenden 
Bildschirmzeile die nächste Zeilen- 
nummer, die um 10 höher als die vor- 
hergehende ist, ausgegeben. Der Cursor 
steht nun hinter der Zeilennummer. 
Ausgeschaltet wird die AUTO-Routine 
durch Drücken der RETURN-Taste 
ohne vorherige Eingabe eines Zeilenin- 
halts. 

Listen der jeweils aktuellen Zeile beim 
Programmablauf 

BefehleiT(race) / .N(otrace) 

Form: .T / .N 

Durch Eingabe von .T wird der Trace- 
Modus eingeschaltet. Die jeweils als 
nächste zu bearbeitende Zeile wird am 
oberen Bildschirmrand aufgelistet. 
Nach Drücken der SPACE-Taste wird 
der nächste Befehl ausgeführt. Ausge- 
schaltet wird der Trace-Modus durch 
.N. 


Disketten-Befehle: 

Catalog 

Befehl: .C(atalog) 

Form: .C 

Das Inhaltsverzeichnis der Diskette 
wird angezeigt, ohne daß das im Spei- 
cher befindliche Programm gelöscht 
wird. 

Anzeige des Floppy-Status 

Befehl: .S(tatus) 

Form: .S 

Die Status-Meldung der Floppy wird 
ausgegeben. 

Programm an ein bereits bestehendes 
anhängen 

Befehl: .M(erge) 

Form: .M„name“, Gerätenummer 

Das Programm mit dem Namen 
„name“ wird geladen und an das im 
Speicher befindliche angehängt. Die 
Zeilennummern des nachzuladenden 
Programms müssen hierzu höher sein 
als die des im Speicher befindlichen. 
Bei 1 als Gerätenummer wird von Kas- 
sette, bei 8 von Diskette und bei 7 bei 
von Kassette mit Turbo-Tape geladen. 

T ur bo-T ape-Befehle 

Grundsätzlich ist die Syntax beim Ar- 
beiten mit Turbo-Tape die gleiche wie 
beim Arbeiten mit der Datasette bzw. 
der Floppy. Zu beachten ist, daß Tur- 
bo-Tape die Gerätenummer 7 zuge- 
schrieben wurde, d. h. um ein Pro- 
gramm mit Turbo-Tape zu laden, gibt 
man ein: LOAD„name“,7 

um ein Programm mit Turbo-Tape ab- 
zuspeichern, benutzt man: SAVE„na- 
me“,7 

Das gleiche gilt für VERIFY (VERIFY 
„name“, 7) und MERGE (.M„name“,7). 
Einige Besonderheiten: 

- während des Suchens, Ladens und 
Speicherns kann jederzeit mit RESTO- 
RE ausgestiegen werden; 

-gibt man beim Saven als Filename 
„name.AUT“ an, so wird das Pro- 
gramm nach dem Laden automatisch 
gestartet; 

- bei Angabe einer Sekundäradresse 
von 128 erfolgt die Abspeicherung 
statt mit 3600 mit 7200 Baud. In der 
Praxis hat sich diese hohe Ubertra- 
gungsgeschwindigkeit jedoch als zu 
unzuverlässig erwiesen. 
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10 

20 

30 

40 

50 

60 

70 


90 
100 
110 
120 
i30 
i40 
150 
1 60 
170 
180 
190 


REM 

REM * S-TüüL 64 * 

REM * LIST1NQ 1 * 

REM W. DATEN LESEN * 

rem 

REM STEFFEN HAEFEL 1 NGER 
REM HflJJFF STR. 11/1 

REM 7400 TUEB INGEN 

REM TEL. ; 0707 1/26427 


2=300 

PRINT "13 DATEN WERDEN GELESEN - BITTE WARTEN" 
SU=Ü 

FÜRL=49 1 52TÜ530 74 
READA : I FA>255THEN2 1 0 
RÜKEL , A ■ 30=30+8 
HEXT 
END 


210 IFA=SUTHEN260 
220 PRINT " STfTPPFEHLER IN ZEILE 
230 PR I NT = PR 1 NT " L I ST " Z " .TI" i 


240 PÜKE63 1,13= PÜKE632 ,145: PÜKE633 ,145: PQKE634 ,145: P0KE635 ,145: P0 KE 198,5 
250 END 

2b0 2=2+ 1 0 : L=L~ 1 : SU=0 

270 I FLC53072THEN 1 80 

280 PR INT "WORTEN IN ORDNUNG 


290 

PRINT "JETZT PROGRAMM 

2 EINGEBEN. 

II 



300 

DATA 32 , 192,201, 

32 , 

89,202, 

32, 

10,207, 

32 , 

1029 

310 

DATA 32,207,234, 

162, 

6, 189, 

34, 

192, 149, 

124, 

1329 

320 

DATA202, 16,248, 

169, 

67, 141, 

8, 

3, 169, 

192, 

1215 

330 

DATA141, 9, 3, 

96, 

76, 42,192, 

0 , 76 , 

52, 

687 

340 

DATA 192, 234, 201 , 

239, 

208, 2, 

169, 

58 , 20 1 , 

58, 

1562 

350 

DATA 176, 10,201, 

32, 

240, 7, 

56, 

233, 48, 

56, 

1059 

360 

DA TA233, 208, 96, 

76, 

115, 0, 

284 , 

32 ,115, 

0, 

1109 

370 

DATA201 , 46,240, 

7, 

32, 121 , 

0, 

? 6 , 28 1 , 

167, 

1121 

380 

DATA234, 32, 87, 

192, 

76,116, 

164, 

160, 0, 

32, 

1093 

390 

DATA1 15, _ 0,217, 

208 , 

201 , 240, 

9, 

200,200, 

192, 

1582 

400 

DATA 22, 208, 245, 

76 , 

8, 175, 

185, 

229,201, 

72, 

1421 

410 

DAT Al 85, 230, 201 , 

72 , 

76 ,115, 

0, 

165, 43, 

1 64 , 

1251 

420 

DA f A 44, 13 j, 34, 

1 82 , 

35 , 1 60 , 

3 , 

200, 177, 

34, 

952 

430 

DA I A208 , 25 i j 200 , 

152, 

24, 101, 

34, 

160, 0,145, 

1275 

440 

DATA 43,165, 35, 

105, 

0,200, 

145, 

48 , 1 86 , 

162, 

1034 

450 

DATA 3,230, 34, 

208, 

2, 230, 

35, 

177, 34, 

208, 

1161 


460 DAT A244 , 202 , 208 , 243 , 1 65 , 
470 DATA 165, 35,105, 0,133, 
480 DATA 45,164, 46,133, 

490 DATA 2,197, 47,176, 


2 , 1 33 , 


45, 


34, 105, 

46, 76, 99,166,165, 
32, 21,196, 48,208, 
24,105, 2,144, 1,200, 


20, 132, 


500 

DATA 1 

ülj J 

84 , 

132, 

35, 

32, 

249, 

192, 

O* 4 “« 

45, 

193, 

510 

DATA1 

38, 

16, 

7, 

32, 

54, 

193, 

76, 

232, 

192, 

96, 

520 

DATA! 

52 , 

48, 

6 

32 , 

70, 

193, 

76, 

232, 

192, 

32, 

530 

DATA 

79, 

1 93-, 

1 69 , 

13, 

32, 

210, 

255, 

165, 

20, 

164, 

540 

DATA 

21, 

24, 

105, 

7, 

144, 

193, 

200, 

176, 

190, 

160, 

550 

DATA 

0, 

177, 

20, 

170, 

41, 

127, 

32, 

210, 

255, 

200, 

560 

DATA 1 

77 , 

20, 

1 68 , 

41, 

127, 

240, 

3, 

32, 

210, 

255, 

570 

DATA1 

•**» O 
gö .• 

16, 

17, 

152, 

48, 

10, 

169, 

35, 

32, 

210, 

580 

DATA2 

55, 

104, 

104, 

76, 

232 j 

192, 

169, 

, 

208, 

78, 

590 

DATA1 

52, 

16, 

4, 

169, 

36, 

208, 

71, 

96, 

32, 

210, 


1381 

990 

1013 

898 

1077 

1036 

1033 

1300 

1220 

1232 

1273 

827 

1455 

994 
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169, 

32, 

32, 

210, 

255, 

1 69 , 

61, 

208 , 

58, 

1449 

0, 

177, 

34, 

170, 

200, 

177, 

34 * 

168, 

138, 

1258 

149, 

179, 

76, 

73, 

193, 

32, 

166, 

187, 

32, 

1119 

189, 

76, 

30, 

171, 

Öd , 

110, 

193, 

160, 

2 , 

1184 

34, 

1 3'd .« 

£}( 

136, 

177, 

34, 

133, 

36, 

136, 

1033 

34, 

1 üo > 

38, 

240, 

10, 

177, 

36, 

32 , 

210, 

1087 

200, 

196, 

38, 

208, 

246, 

169, 

34, 

76, 

210, 

1632 

32, 

181, 

193, 

240, 

3, 

76, 

8 , 

175, 

32, 

1195 

1 66 , 

144, 

12 > 

160, 

0, 

177, 

90, 

170, 

200, 

1138 

98, 

133, 

91, 

134, 

90, 

160, 

0, 

177, 

90, 

1142 

88, 

230, 

88, 

208, 

2, 

230, 

89, 

230, 

90, 

1400 

cL * 

«£.' O Ö .« 

91 .• 

165, 

45, 

197, 

90, 

208, 

232, 

1468 

46, 

197, 

91, 

208, 

226, 

165, 

88, 

133, 

45, 

1364 

89, 

133, 

46, 

76, 

51, 

165, 

165, 

43, 

166, 

1099 

133, 

88, 

134, 

89, 

32, 

ÖtJ , 

194, 

165, 

95, 

1009 

9b .» 

133, 

90, 

134, 

91 , 

1 62 , 

255 , 

134, 

21 , 

1282 

121, 

0, 

144, 

15, 

201, 

45, 

240, 

4 , 

201, 

1003 

208, 

70, 

iZt'a. , 

115, 

0, 

144, 

37, 

176, 

245, 

1198 

107, 

169., 

72, 

32, 

19, 

166, 

165, 

95, 

166, 

1023 

133, 

88, 

134, 

89, 

104, 

240, 

25, 

162, 

255, 

1 326 

21, 

201, 

45 , 

240, 

4, 

201, 

171, 

208, 

33, 

1258 

115, 

0, 

176, 

28, 

32, 

107, 

169, 

208, 

23, 

890 

19, 

166, 

165, 

95, 

166, 

96, 

133, 

90, 

134, 

1096 

165, 

90, 

197, 

88, 

165, 

91, 

229, 

89, 

144, 

1349 

169, 

0, 

96, 

169, 

1, 

96, 

32, 

57, 

194, 

817 

66, 

194, 

208, 

251, 

24, 

138, 

166, 

96, 

105, 

1280 

133, 

45, 

144, 

1, 

232, 

1 34 , 

46, 

96, 

169, 

1002 

162 , 

0, 

133, 

95, 

134, 

96, 

96, 

160, 

0, 

919 

95, 

170, 

200, 

177, 

95, 

134, 

95, 

133, 

96, 

1372 

95, 

96, 

96, 

?& J 

8, 

175, 

160, 

0, 

177, 

1060 

240, 

24 7, 

201, 

44, 

240, 

243, 

162, 

0, 

134, 

1633 

201, 

34, 

208, 

12, 

198, 

67 , 

32, 

115, 

0, 

934 

240, 

226 , 

201, 

34, 

240, 

222, 

165, 

122, 

133, 

1753 

32, 

115, 

0, 

170, 

24Ö, 

7, 

201, 

44, 

208, 

1032 

32, 

115, 

0, 

32, 

181, 

193, 

201, 

0, 

208, 

1208 

165, 

88, 

166, 

89, 

133, 

95, 

134, 

96, 

176, 

1340 

32, 

108, 

195, 

240, 

179, 

160, 

2 , 

165, 

20, 

1106 

95, 

165, 

21, 

200, 

241, 

95, 

144, 

166, 

160, 

1496 

152, 

69, 

67, 

133, 

134, 

177, 

95, 

240, 

227, 

1298 

34, 

208, 

8, 

165, 

134, 

73, 

255, 

133, 

134, 

1345 


610 DATA 160, 
620 DATA 32, 
630 DRTR221, 
640 DRTfl 177, 
650 DRTfl 177, 
660 DATR255, 
670 DATR255, 
680 DATA 19, 
690 DATA 177, 
700 DATA 145, 
710 DRTA208, 
720 DATA 165, 
730 DATA 165, 
740 DATA 44, 
750 DATA 166, 


820 DATA 32, 
830 DATA 91, 
840 DATA 3, 
850 DATA 32, 
860 DATA 2, 
870 DATA 43, 
880 DATA 177, 
890 DATA 177, 


940 DATA246, 
950 DATA 198, 
960 DATA 5, 
970 DAT A209 , 
980 DATA 4, 
990 DATA201 , 


1010 DATA 189, 0, 
1020 DATA 95,240, 
1030 DATA 6,208, 
1040 DATA 160, 2, 


1060 DATA 194, 

1070 DATA 105, 

1080 DATA165, 211, 72,165, 
1 09Ö DAT A2 12, 72,173,141, 


2, 133, 


1110 DATA 44, 41,; 
1120 DATA 16,162, 
1130 DATA 13,141, 


8 , 

2 , 


1170 DATA 133, 


213, 


1 1 80 DATA 1 70 , 200 , 1 77 , 
1190 DATA 96,173,141, 


2 . 


48, 

49, 

1 66, 

15, 

132, 

68, 

909 

22, 

281, 

34, 

240, 

18, 

209, 

1155 

44, 

208, 

26, 

165, 

67, 

240, 

1296 

200, 

208, 

229, 

32, 

123, 

195, 

1453 

32, 

177, 

195, 

32, 

215, 

170, 

1248 

68, 

200, 

208, 

184, 

32, 

57, 

1332 

208, 

251, 

24 , 

138, 

166, 

96, 

1412 

144, 

1, 

232, 

134, 

46, 

96, 

938 

213, 

72, 

165, 

214, 

72, 

165, 

1514 

2, 

41, 

6 , 

240, 

16, 

41, 

944 

224, 

0, 

240, 

o 
o > 

9, 

16, 

956 

127, 

165, 

127, 

41, 

16, 

208, 

1141 

150, 

196, 

165, 

127, 

41, 

16, 

913 

22, 

240, 

240, 

32 , 

102, 

229, 

1062 

215, 

170, 

166, 

132, 

32, 

140, 

1317 

211, 

177, 

209, 

73, 

128, 

145, 

1602 

104, 

170, 

32, 

140, 

232, 

104, 

1440 

211, 

96, 

1 60 , 

0, 

177, 

95, 

1322 

134, 

95, 

1 33 , 

96, 

177, 

95, 

1372 

41, 

2, 

240, 

20, 

45, 

i4i ; 

901 
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1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1 740 
1 750 
1760 
1770 
1780 
1790 


DAT fl 2, 
DATA 4 , 
DATA 168, 
DATA 10, 
DATA208, 
DATA 95, 
DATA 164, 
DATA247, 
DATA 134, 
DATA131 , 
DATA 32, 
DATA288, 
DATA 96, 
DATA208, 
DATA 133, 


36 , 
32, 
11 , 
48, 


DATA 
DATA 
DATA 
DATA 
DATA 132, 
DATA 12, 
DATA246, 
DATA! 71, 
DATA 162, 
DATA 32, 
DATA 32, 
DATA202, 
DATA131, 
DATA 196, 
DATA 3, 
DATA 196, 
DATA 10, 
DATA 96, 
DATA 9, 
DATA202, 
DATA 128, 
DATA 52, 
DATA 165, 
DATA 76, 
DATA 73, 
DAIA247, 
DATA 145, 
DATA 19, 
DATA 
DATA 
DATA 
DATA 
DATA 109, 
DATA 133, 
DATA 32, 
DATA 96, 
DA Tflei46 , 
DATA 76, 
DATA191 , 
DATA 3, 
DATA 32, 
DATA 32, 
DATA 132, 
DATA 165, 
DATA 48, 


25, 


32, 

20 , 

21 , 


208, 

251, 

32, 

44, 

168, 

173, 

141, 

2, 

41, 

1062 

240 , 

246, 

45, 

141, 

2, 

208, 

251, 

76, 

44, 

1257 

201, 

239, 

208, 

2, 

169, 

58, 

281, 

58, 

176, 

1480 

201 , 

oo 

■Z'eL , 

240, 

r , 

56, 

233, 

48, 

56, 

.1« wj } 

1116 

36, 

76, 

115, 

0, 

177, 

95, 

170, 

200, 

177, 

1314 

32, 

205, 

189, 

76, 

225, 

195, 

96, 

169, 

32, 

1314 

211, 

145, 

209, 

196, 

213, 

176, 

245, 

200, 

208, 

1967 

32, 

201, 

189, 

165, 

57, 

166, 

58, 

1 33 , 

20, 

1268 

2 1 , 

32, 

19, 

166, 

165, 

211, 

1 66 , 

214, 

1 33 , 

1261 

134, 

132, 

160, 

3 i 

132, 

11, 

132, 

73, 

169, 

1077 

164, 

73, 

41, 

127, 

32, 

71, 

171, 

201, 

34, 

946 

6, 

165, 

11, 

73, 

255, 

1 33 , 

11, 

200, 

166, 

1228 

152, 

24, 

101, 

95, 

144, 

1, 

232, 

197, 

122, 

1164 

12, 

228, 

123, 

208, 

8, 

165, 

211, 

166, 

214, 

1543 

131, 

134, 

132, 

177, 

95, 

240, 

166, 

48, 

15, 

1271 

11, 

48, 

207, 

201, 

23, 

176, 

203 , 

105, 

197, 

1287 

99, 

196, 

48, 

192, 

201, 

255, 

240, 

192, 

36, 

1491 

48 , 

1 88 , 

201, 

219, 

176, 

239, 

32, 

58, 

196, 

1368 

175, 

162, 

160, 

134, 

35, 

162, 

158, 

134, 

34 , 

1202 

73, 

170, 

160, 

0, 

10, 

240, 

16, 

202, 

16, 

1019 

230 , 

34, 

208, 

2, 

230 , 

35, 

177, 

34, 

16, 

978 

48 , 

241, 

200, 

177, 

34, 

48, 

27 , 

32 , 

71, 

1124 

208, 

246, 

56, 

233, 

70, 

162, 

158, 

134, 

35, 

1473 

232, 

134, 

34 , 

208, 

210, 

201, 

172, 

208, 

5, 

1566 

115, 

0, 

169, 

0, 

96, 

133, 

131, 

134, 

132, 

942 

44, 

168, 

162, 

45, 

160, 

0, 

136, 

208, 

253, 

1208 

208 , 

250 , 

198, 

1 32 , 

208, 

239, 

198, 

131, 

165, 

1931 

208, 

227, 

96, 

169, 

1, 

208, 

224 , 

32, 

209, 

1505 

72, 

32, 

241, 

1 83 , 

104, 

168, 

138, 

0, 

22, 

1156 

32 , 

182, 

196, 

160, 

5 , 

145, 

73 , 

32, 

182, 

1010 

160, 

6, 

76, 

230, 

196, 

32, 

197, 

196, 

10, 

1299 

10, 

10, 

1 33 , 

135, 

32, 

197, 

196, 

5, 

135, 

863 

32 , 

253, 

174, 

32, 

158, 

183, 

224, 

16, 

176, 

1344 

138, 

96, 

169, 

212, 

133, 

74, 

32, 

158, 

183, 

1204 

48, 

243, 

224, 

3 , 

176, 

239 , 

138, 

1 88 , 

77, 

1538 

1 32 , 

73, 

96, 

145, 

73 , 

32, 

121, 

0, 

240, 

1040 

32 , 

253, 

174, 

32, 

138, 

173, 

32, 

247, 

183, 

1316 

21, 

201, 

16, 

176, 

4, 

160, 

3, 

208, 

25, 

979 

72, 

178, 

32 , 

138, 

173, 

oo 

247, 

183, 

132, 

1263 

1 33 , 

74, 

32 , 

253, 

174, 

32 , 

138, 

173, 

32, 

1114 

183, 

120, 

160, 

1, 

145, 

73, 

136, 

165, 

20, 

1250 

70 

rOj 

88, 

96, 

32, 

121, 

0, 

240, 

47, 

176, 

1018 

32 , 

107, 

1 69 , 

8, 

166, 

20, 

165, 

21, 

134, 

841 

133, 

26, 

134, 

190, 

133, 

191, 

40, 

240, 

26, 

1138 

253, 

174, 

1 76, 

251, 

32, 

107, 

169, 

8, 

165, 

1367 

166, 

21 , 

141, 

254, 

2, 

142, 

255, 

2 , 

5, 

1008 

240, 

51, 

40, 

208, 

230, 

96, 

24, 

1 65 , 

190, 

1265 

254, 

2 , 

1 33 , 

190, 

165, 

191, 

109, 

255, 

2, 

1410 

191, 

176, 

2, 

201 , 

250, 

96, 

oo 
-->2 , 

70, 

199, 

1350 

34, 

197, 

165, 

43, 

166, 

44, 

133, 

95, 

134, 

1043 

32, 

229, 

197, 

240, 

54, 

32, 

87, 

197, 

144, 

1308 

dcL , 

78, 

199, 

76 , 

72, 

178, 

32, 

93, 

199, 

1197 

84 , 

192, 

165, 

25, 

166, 

26, 

133, 

190, 

134, 

1191 

165, 

43, 

1 66 , 

44, 

133, 

95, 

134, 

96, 

160, 

1227 

165, 

191, 

145, 

95, 

1 36 , 

165, 

190, 

145, 

95, 

1330 

87, 

197, 

32, 

229 , 

197, 

288, 

237, 

240, 

213, 

1672 

61, 

199, 

32, 

229 , 

197, 

240, 

211, 

160, 

4, 

1365 

15, 

177, 

95, 

240, 

243, 

201, 

34, 

208, 

8, 

1353 

15, 

?3 j 

255, 

1 33 , 

15, 

208, 

18, 

36, 

15, 

933 

14, 

201 , 

143, 

240, 

223, 

162, 

8, 

221, 

251, 

1511 


Februar 1985 


CPU 35 
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1810 

1620 

1630 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 


B6TR201, 
BftTft 0 , 
BftTft 96, 
BfiTftl33, 
BftTft 91, 
BftTfi201, 
BftTft 95, 
BftTft 162, 
BftTft 32, 
BftTft 122, 
BftTft 176, 
BftTft 122, 
BftTft 171, 
BftTft 197, 
BftTft 43, 
Bft f ft 36 , 
BftTft20S, 
BftTft 162, 
BftTft 87, 
BftTft 170, 
BftTft 36, 
BftTft 134, 
BftTft 152, 
BftTft 134, 
BftTft 165, 
BftTft 197, 
BftTft 166, 
BfiTft208 , 
BftTft 168, 
BftTft 1 , 
Bft! 6200, 
BftTft 198, 
BftTft 122, 
BftTft 0, 


240, 

177, 


115, 


C2‘ 

D .« 


229, 


165 


•j, 


144, 


229. 


176, 


165, 


BftTft 89, 


177, 

165, 


fc, 


yc 

( D , 


'•■280 


2290 

2300 


2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 


BftTft236, 

BftTft 96, 
BftTft255, 

Bft f ft 1 83 , 

BftTft 127, 

BftTft 3, 

BftTft 2, 
BfiTR250, 

BftTft 13, 

BftTft 3, 

Bft I 6202 , 228 , 
BftTft 58,166, 
BRT6252, 134, 
BftTft 177, 

BftTft 133, 

BftTft 134, 

BftTft 141, 

Bft 1 ft248 , 

BftTft 3, 
B6T6205, 
BftTft209, 
BRTR244, 

BftTft 141, 

BftTft 164, 

BftTft 3, 


251, 


248, 


O j 

105, 


169, 

2 , 


21 ; 

202, 

208 , 

248, 

200, 

208, 

219, 

160, 

1987 

95, 

170, 

200, 

177, 

95, 

134, 

95, 

133, 

1276 

95, 

96, 

24, 

152, 

101, 

95, 

133, 

122, 

1891 

1 66 / 

96, 

1 44 , 

1, 

232, 

134, 

123, 

134, 

1253 

115, 

0, 

144, 

10, 

201, 

171, 

240, 

57, 

1061 

ddöb t 

208, 

240, 

51, 

32, 

107, 

169, 

32, 

1412 

165, 

90, 

166, 

91, 

133, 

122, 

134, 

123, 

1317 

1 60 * 

0, 

189, 

0, 

1, 

240, 

15, 

72, 

839 

0, 

144, 

8 , 

32, 

1 68 , 

198, 

104, 

145, 

941 

208 > 

236, 

32, 

115, 

0, 

32, 

121, 

0, 

1098 

32.* 

19, 

199, 

240, 

246 , 

170, 

56, 

165, 

1308 

95, 

168, 

138, 

201, 

44, 

240, 

161, 

201, 

1599 

1 57 , 

201, 

164, 

240, 

153, 

170, 

76, 

194, 

1766 

25.« 

1 66 .« 

26 , 

133, 

190, 

134, 

191, 

165, 

1392 

44, 

133, 

36, 

134, 

37, 

1 60 , 

3 > 

177, 

933 

21 > 

208, 

24 , 

136, 

477 , 

36, 

197, 

20, 

1052 

165, 

191, 

166, 

190, 

1 83 , 

98, 

134, 

99, 

1401 

56.« 

32; 

73, 

188, 

76, 

288 , 

189, 

32, 

1175 

160, 

1, 

177, 

36, 

208, 

5 , 

169, 

255, 

1295 

229, 

170, 

136, 

177, 

36, 

134, 

37, 

1 88 , 

1430 

111, 

198, 

134, 

131, 

166, 

45, 

164, 

46, 

1107 

132, 

89, 

282 , 

208 , 

1, 

200, 

228, 

55, 

1367 

56, 

144, 

0 

V, , 

76, 

53, 

164, 

132, 

46, 

1055 

160, 

1, 

162, 

0, 

161, 

88 , 

145, 

88, 

984 

20b .» 

2; 

198, 

89, 

198, 

88, 

165, 

88, 

1289 

165, 

89, 

229, 

123, 

176, 

234, 

165, 

95, 

1595 

1 b3 .« 

90, 

134, 

91, 

1 60 , 

1 , 

177, 

90, 

1138 

166, 

131, 

1 86 , 

96, 

170, 

1 36 , 

177, 

90, 

1314 

6, 

200, 

208, 

7, 

232, 

208, 

4 ; 

208, 

1417 

1 86 , 

152, 

160 , 

0, 

145, 

90, 

72, 

138, 

1096 

90, 

133, 

91 , 

104, 

133, 

90, 

76, 

282 , 

1294 

45, 

208, 

2 , 

198, 

46, 

198, 

45, 

165, 

1270 

123, 

133, 

88, 

134, 

89, 

'160, 

1, 

162, 

1178 

88, 

129, 

88, 

230, 

88, 

208, 

2, 

230, 

1240 

88, 

197, 

45, 

165, 

89, 

'229, 

46, 

144, 

1257 

1 6 1 , 

169, 

43, 

1 62 , 

0, 

' 133, 

95, 

134, 

1309 

169, 

10, 

162, 

0, 

141, 

'254, 

2, 

142, 

1072 

133, 

253, 

1 34 , 

254, 

1 33 , 

' 190, 

134, 

191, 

1679 

1 84 , 

26, 

96, 

165, 

127, 

' 41, 

249, 

133, 

1129 

96, 

166, 

96, 

234, 

169, 

' 0, 

141, 

249, 

1354 

248, 

3 .« 

32, 

33, 

200, 

169, 

125, 

141, 

1095 

1 69 , 

1 99 , 

141, 

3, 

3, 

166, 

45, 

236, 

967 

208, 

20, 

166, 

46, 

236, 

' 25 1 , 

3 , 

208, 

1391 

248, 

3 , 

208, 

er 

o , 

174, 

.249, 

3, 

240, 

1317 

20, 

200, 

32 , 

03 j 

200, 

. 166, 

45, 

202, 

977 

43 , 

>208, 

6, 

1 66 , 

46, 

.228, 

44, 

240, 

1411 

43, 

134, 

251, 

134, 

OSTO 
8. j8 j 

. 166, 

44, 

134, 

1383 

254, 

- 160, 

0, 

177, 

251, 

. 208 , 

5, 

200, 

1641 

240, 

1 23 , 

165, 

251, 

133; 

.253, 

165, 

252, 

1918 

160, 

1 0, 

177, 

251, 

170, 

.200, 

177, 

251, 

1773 

1 jo , 

.'".IS*.", 

1 i.JÜ ) 

76 , 

181, 

199, 

.200, 

177, 

253, 

1856 

3, 

'200, 

177, 

253, 

141, 

.249, 

3 f 

173, 

1588 

24 j 

' 105, 

10, 

141, 

248, 

. 3, 

173, 

249, 

1204 

0 . 

. 141, 

249, 

3, 

174. 

. 248 , 

3, 

32, 

958 

169. 

' •_!£. , 

32 , 

210, 

255; 

. 160, 

0, 

177, 

1429 

> 1 1 9 j 

1 2 , 

230, 

198, 

200. 

■ 196, 

211, 

208, 

1726 

0, 

■ 133, 

211, 

76, 

131. 

. 164, 

169, 

131, 

1428 

3 , 

' 169, 

164, 

141, 


. 3 , 

76, 

131, 

833 

. 45, 

- 142, 

250, 

3, 

166; 

. 46, 

142, 

251, 

1375 

234 . 

■ 234, 

284 , 

234, 

1 65 ; 

. 43, 

166, 

44 ; 

1453 
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2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 


BRTR 8. 


0818255. 


BRTR 
BAT Fl 


67.. 

8 , 


BRTR 162, 


2700 BRTR 169, 
2710 BATR243, 
2720 BATA255, 
2730 BRTR 165, 
2740 BRTR255, 
2750 BRTR 166, 
2760 BRTR 32, 
2770 BR TA 32, 
2780 BATA255, 
2790 BRTA234, 
2800 BATR202, 
2810 
2820 
2830 
2840 
2850 
2860 
28 1 1 ' 0 
2880 
2890 


BRTR 6, 
BR ! R 82 , 


2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 


BATfl 32, 
BA'T'fl 84, 
BRTR 86, 
BRTR 42, 
BRTR 57, 
BRTR 66, 
BRTR 76, 
BRTR 162, 
BRTR 104 
BA'T'fl 89 


251, 

1 34 > 

252, 

160, 

0, 

177, 

251, 

208, 

8, 

1574 

177, 

251, 

208, 

14, 

76, 

87, 

200, 

170, 

200, 

1583 

251, 

134, 

251, 

1 33 , 

252, 

76, 

56, 

200, 

136, 

1 666 

251, 

76, 

70, 

200, 

169, 

0, 

133, 

10, 

32, 

1118 

225, 

165, 

10, 

166, 

251, 

164, 

252, 

76, 

117, 

1638 

234 .» 

173, 

8, 

3, 

174, 

9, 

3 , 

133, 

251, 

1213 

252, 

169, 

200, 

162, 

125, 

141, 

9, 

3, 

142, 

1337 

3, 

96, 

166, 

58, 

232, 

208, 

3, 

76, 

67, 

917 

56, 


240, 

255, 

134, 

253, 

132, 

254, 

32, 

1580 

202, 

1 62 .• 

80, 

169, 

32, 

32 , 

210, 

255, 

202, 

1424 

250, 

32.» 

80, 

282, 

165, 

57, 

166, 

58, 

133, 

1351 

134, 

21, 

32, 

19, 

166, 

160, 

1, 

132, 

15, 

700 

174, 

194, 

76, 

0 , 

201, 

95, 

132, 

73, 

32, 

1009 

189, 

169, 

32, 

32, 

210, 

255, 

164, 

73, 

200, 

1529 

174, 

1 94 f 

76, 

234, 

200, 

208, 

6, 

165, 

15, 

1348 

255, 

133, 

15, 

177, 

95, 

166, 

15, 

48, 

39, 

1016 

95, 

16, 

35, 

233, 

128, 

132, 

73, 

160, 

255, 

1304 

240, 

9, 

200, 

185, 

158, 

160, 

16, 

250, 

202, 

159© 

247, 

200 > 

185, 

158, 

160, 

48, 

6, 

32, 

210, 

1454 

76, 

234, 

200, 

233, 

127, 

76, 

186, 

200, 

1 32 , 

1719 

76, 

186, 

200, 

166, 

253, 

164, 

254, 

24, 

32, 

1428 

255, 

32, 

44, 

168, 

32, 

228, 

255, 

201, 

0, 

1455 

246 .• 

201, 

32 > 

240, 

3, 

76, 

8, 

201, 

76, 

1323 

192, 

1 62 / 

1 92 ,• 

1 42 , 

9, 

3, 

169, 

67, 

141, 

1144 

> 

96, 

169, 

1, 

162 , 

8 , 

160, 

15, 

32, 

654 

255, 

169, 

0, 

32, 

189, 

255, 

32, 

192, 

255, 

1565 

1, 

32, 

198, 

255 , 

32, 

207, 

255, 

32 , 

210, 

1384 

36 .« 

144, 

80, 

246 , 

32, 

204, 

255, 

169, 

1, 

1422 

195, 

255, 

96, 

169, 

36, 

133, 

251, 

169, 

251, 

1587 

187 , 

169, 

0, 

1 33 j 

188, 

169, 

1, 

133, 

183, 

1296 

8, 

133, 

186, 

169, 

96 , 

133, 

185, 

32, 

213, 

1324 

165, 

186, 

32 , 

180, 

255, 

165, 

185, 

32 , 

150, 

1593 

169, 

0, 

133, 

144, 

160, 

3, 

132, 

251, 

32, 

1279 

255, 

133, 

252, 

164, 

144, 

208, 

47, 

32, 

165, 

1565 

1 64 , 

144, 

208, 

40, 

164, 

251 , 

136, 

208, 

233, 

1803 

252, 

32, 

205, 

189, 

169, 

32, 

32, 

210, 

255, 

1542 

165, 

255, 

1 66 , 

144, 

208, 

18, 

170, 

240, 

6, 

1404 

210, 

255, 

76, 

156, 

201 , 

169, 

13, 

32, 

210, 

1354 

160, 

2, 

208, 

198, 

32, 

66, 

246 , 

96, 

234 , 

1497 

1 234 j 

234 , 

234 , 

234 j 

234, 

162, 

0, 

189, 

er 
■J , 

1760 

i 32, 

210, 

255, 

232, 

201, 

0, 

208, 

245, 

1 62 .' 

1747 

i 96, 

79, 

32, 

1 SB , 

. 32, 

75, 

32 j 

70, 

32, 

522 

i 32 , 

65, 

32 , 

. 77, 

. 32, 

84, 

32, 

78, 

32, 

546 

. 32, 

67, 

. 192, 

.116, 

. 1 92 , 

178, 

. 193, 

114, 

. 1 94 , 

1361 

. 197, 

- 106, 

. 199, 

. 1 03 j 

.200, 

47, 

.200, 

103, 

.201, 

1440 

i 20 1 , 

t ,Zi O 1 

1 20 1 , 

. 79, 

. 37, 

140, 

. 138, 

167, 

. 137, 

1165 

.224, 

. 234, 

.234, 

. 234 , 

. 147, 

17, 

. 32, 

. 32, 

. 32, 

1327 

. 32, 

. 42, 

. 42, 

. 42, 

. 42, 

. 32, 

. 32, 

. 83, 

. 45, 

424 

• f y . 

. 79, 

. 76, 

. 32 , 

. 54, 

. 52. 

. 32, 

. 47, 

. 32, 

567 

. 32, 

. 50, 

. 46, 

. 48. 

, 32, 

. 32, 

. 42 , 

. 42, 

. 42, 

452 

. 13, 

. 13, 

. 32. 

■ 32, 

. 32, 

. 32. 

■ 32, 

. 32, 

. 49 , 

309 

. 56 , 

1 52, 

. 22 , 

. 32 , 

. 40, 

. 67, 

1 41, 

, 32, 

. 32 , 

441 

. 89, 

. 32, 

. 83. 

. 46. 

. 72, 

. 65, 

. 69, 

■ 70, 

. 69 , 

661 

. 73 . 

. 78 , 

. 71. 

, 69. 

. 82, 

. 13, 

. 0, 

.234, 

.234, 

930 

. 0, 

. 160. 

. 0. 

. 24. 

. 32, 

.240. 

-255, 

. 96. 

■ 169, 

1138 

. 141. 

. 48 . 

1 '1* . 

.169, 

. 204 , 

, 141. 

. 49, 

. 3. 

. 169, 

1031 

.141. 

■ 50. 

• 3 . 

1 169. 

,206, 

, 141, 

. 51. 

' 3 . 

. 96, 

949 

, 234 . 

• 234. 

,234. 

1 234 . 

,234. 

. 234 . 

. 234 . 

.234. 

. 234 , 

2340 

,234. 

,234. 

,234. 

,234. 

, 162. 

. 0, 

. 160. 

. 0. 

.202, 

1694 

, 253 . 

, 136. 

,208. 

,250. 

, 96. 

. 160. 

. 0. 

, 185. 

. 152, 

1648 
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3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 DRTft 10, 
3110 DftTfl 91, 
3120 DftTfl 16, 
3130 DftTfl 89, 
3140 DAT ft 10, 
3150 DftTfl 91, 
3160 DftTfl 32, 
3170 DfiTft252, 
3180 


DflTR 76, 
DftTfl 13, 
DftTfl 172, 
DRTft 88, 
DRTR 90, 
DflTR 4, 
DftTfl 176, 
DflTR 16, 


3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 


DftTfl 3, 
DftTfl 108, 
DftTfl 0, 


DRTft 

DftTfl 


2 , 

0 , 

O r J 


DRTft 1 jo, 
DRTft 


DftTfl 3, 
DftTfl 141, 
DRTft 133, 
DRTft 93, 
DftTfl 90, 
DftTfl 6, 


DftTfl 36, 
DftTft208, 
DftTfl 32, 
DftTfl 3, 


DftTft208, 


DftTfl 169, 
DftTfl 78, 
Dft fft 1 06 , 
DftTfl 7, 


DATA 20, 
DftTfl 2, 
DftTfl 3, 


.200, 

32, 

210, 

255, 

201, 

0, 

208 , 

245, 

104, 

1657 

. 96, 

63, 

32, 

73, 

76, 

76, 

69, 

71, 

65, 

725 

> 32 j 

70, 

73, 

76, 

69, 

78, 

65, 

77, 

69, 

685 

. 0, 

173, 

13, 

220, 

169, 

217, 

174, 

4, 

220, 

1203 

er 

; 

220, 

141, 

14, 

220, 

48, 

44, 

56, 

102, 

1022 

36, 

89, 

48, 

12, 

144, 

10, 

165, 

88, 

133, 

813 

169, 

128, 

1 oo 

1 JO , 

88, 

133, 

91, 

192, 

121, 

144, 

1289 

228, 

87, 

176, 

7, 

169, 

0, 

133, 

92, 

56, 

952 

11, 

165; 

92, 

73, 

128, 

133, 

92, 

36, 

92, 

998 

13 j 

24, 

102, 

88 , 

Ob ; 

89, 

48, 

12, 

144, 

578 

i 65 .« 

88 ; 

1 33 , 

90, 

169, 

128, 

133, 

88, 

133, 

1137 

104, 

1 68 ; 

104, 

170, 

104, 

64, 

96, 

36, 

91, 

1028 

252, 

132, 

91, 

165, 

90, 

96, 

160, 

128, 

132, 

1262 

165, 

88, 

201, 

22, 

208, 

250, 

1 32 , 

88, 

160, 

1403 

132, 

89, 

132, 

91, 

8 1; ; 

91, 

16, 

252, 

132, 

981 

165, 

90, 

201, 

22, 

208 , 

226, 

136, 

208, 

241, 

1588 

k! ; 

203, 

201, 

22, 

240, 

249, 

96, 

3t£ , 

147, 

1224 

169, 

71, 

141., 

24, 

o 
•i , 

169, 

254, 

141, 

25, 

1249 

24 j 

88, 

96, 

32, 

52, 

203, 

32, 

1 63 , 

253, 

946 

2, 

160, 

165, 

183, 

201, 

17, 

1 ( 6 , 

27, 

160, 

1199 

132, 

2, 

162, 

0, 

196, 

183, 

144, 

1, 

96, 

916 

187; 

201 , 

46 , 

240, 

13, 

232, 

200, 

36, 

2, 

1334 

239; 

224 ; 

4, 

144, 

235, 

76, 

136, 

202, 

36, 

1312 

48, 

249, 

198, 

2 , 

224, 

13, 

1 ( 6, 

243, 

1 62 , 

1317 

l*' o .« 

101, 

ciÖJ ,i 

165, 

185, 

208, 

10, 

165, 

43, 

1156 

95, 

165, 

44, 

133, 

96, 

208, 

10, 

173, 

77, 

1134 

133, 

95, 

1 70 

I { J , 

78, 

3, 

133, 

96, 

24, 

165, 

903 

109, 

79, 

3, 

133, 

174, 

165, 

96, 

109, 

80, 

1043 

133, 

175, 

44, 

76, 

o 
uD ; 

16, 

14, 

169, 

156, 

789 

4, 

220, 

169, 

128, 

141, 

5, 

220, 

169, 

187, 

1384 

87, 

32, 

11, 

203, 

201, 

197, 

208, 

59, 

132, 

1263 

132, 

94, 

36, 

91, 

16, 

252, 

132, 

91, 

165, 

1102 

3b , 

148, 

48, 

113, 

145, 

95, 

Ob, 

1 06 , 

144, 

981 

230, 

93, 

208, 

2 , 

230, 

94 , 

74, 

208, 

245, 

1390 

95, 

208, 

2> 

230, 

96, 

165, 

qc; 

y>J ; 

197, 

174, 

1492 

2 1 7 , 

165, 

96 , 

197, 

175, 

208, 

211, 

36 , 

91, 

1604 

252 , 

132, 

91, 

165, 

90, 

197, 

93, 

208, 

72, 

1316 

91 , 

16, 

252, 

132, 

91; 

165, 

90, 

197, 

94 , 

1164 

60, 

82 , 

210, 

245, 

169, 

oo 

Oe. ; 

32, 

210, 

255, 

1453 

105, 

205, 

32, 

8 1 , 

204, 

160, 

3, 

185, 

72, 

1079 

217, 

92, 

204, 

208, 

16, 

136, 

208, 

245, 

185, 

1514 

204, 

153, 

119, 

2 , 

200, 

192, 

4, 

208, 

245, 

1423 

198, 

160, 

O } 

1 85 , 

72, 

8 ; 

217, 

100, 

204, 

1274 

24, 

1 36 , 

208, 

245, 

108, 

i* i* ; 

3, 

209, 

95, 

131 3 

141, 

185, 

105, 

163, 

240, 

6; 

32 , 

210, 

255, 

1577 

208, 

245, 

32, 

52, 

203, 

166; 

174, 

164, 

175, 

1619 

0, 

24 , 

96, 

32, 

65, 

85; 

84 , 

82, 

85, 

722 

1 .» 

32, 

67, 

79, 

77, 

120; 

133, 

147, 

74, 

820 

133, 

148, 

169, 

0, 

133, 

144; 

165, 

186, 

201, 

1385 

240, 

9, 

56, 

41, 

14, 

208 ; 

1, 

24, 

76, 

676 

244, 

82 j 

77, 

208 , 

■AtL> 

23 ; 

248, 

165, 

1, 

1 196 

31, 

133, 

1, 

133, 

192, 

OO , 

•Jil> .* 

125, 

202, 

169, 

1059 

141, 

24, 

8 ; 

169, 

203, 

141, 

25, 

3, 

173, 

950 

3, 

141, 

159, 

2 t 

i i' 8 ; 

21, 

3, 

141, 

160, 

823 

169, 

172, 

141, 

20 , 

8 ; 

169, 

202, 

141, 

21, 

1040 

169, 

127, 

141, 

13, 

220, 

169, 

144, 

141, 

13, 

1140 

173, 

17, 

208, 

41, 

239 , 

141, 

17, 

208, 

169, 

1433 

141, 

4, 

220, 

169, 

129, 

141, 

5, 

220, 

i69, 

1 Z63 

133, 

87, 

88, 

32 , 

11, 

203, 

201, 

42, 

208,. 

1120 

1 32 , 

93, 

1 32 ; 

94, 

36, 

91, 

16, 

252, 

132, 

1227 
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DATA 91.165,. 90.153. 68. 3. 56,. 106. 144,. 6. 

HRTR230,. 93.203. 2.230. 94. 74.208.245.200. 

DAT Fl 192. 25.144.227. 32. 2.203.197. 93.268. 

DATA1 16. 32. 2.203.197. 94.208.109.166. 0. 

DRTA196. 183.248. 186. 160. 0. 196. 183.240. 100. 

DATA132. 149. 132. 2.162. 6. 177. 187. 261 . 46. 

DATA240. 27.201. 42.240. 30.164.149.201. 63. 
DRTfi240. 5.217. 66. 3.208. 28.266.232.228. 

3680 DA TA 183.1 76 . 67.1 32 .149.138.168.144. 223 .198. 

O £ Q T'l Ca T Ci O 4 4 "Ti /" er «r. er .*** j 


3666 

3610 

3620 

3630 

3640 

3650 

3660 

3676 


5690 

3766 

3710 

3720 


3740 

3750 


3760 

3770 

3780 

3790 

3800 

3810 

3826 

3830 

3840 

3850 

3860 

3870 

3880 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 


DflTfi 2.160. 13. 76. 50.205. 36. 2. 48. 50. 
DATA 160. 12. 76. 50.205. 32. 81.204.160. 99. 
DATA 32. 47.241.169. 32. 32.105.205.169. 3. 
DATA 133. 147. 32. 125.202. 198. 147.208.249. 120. 
DATA 76.130.204.160. 0.185. 60. 3. 32.210. 
DATA255.200. 192. 16.144.245. 96. 76. 70.204. 

88.160. 4. 70. 88.144. 


DA I A 76 . 1 28 . 203 . 1 jo . 


9 , 3 . 


DATA 5.165.252.141. 4.221.169. 1. 44. 

DATA22 1.240. 251. 169.217. 141. 14.221. 165. 

DATA 73. 8.133. 1.176. 22.169. 1. 44. 

DATA221. 240. 251. 169.217. 141. 14.221. 165. 

DATA 73 . 8.133. 1 . 136 . 208 . 206 . 96.165. 

DATA 105. 0.133. 93.165. 94.105. 0.133. 94. 

DATA165.251. 141. 4.221.136.208.185. 96. 72. 

DATA 162. 64.169. 22. 32.125.205. 32.127.205. 
DRTA202 . 208 . 245 .104. 32.125.205. 32.127.205. 
DAT Al 60. 0.132. 93.132. 94.177. 95. 32.125. 

DATA205. 230. 95.208. 2.230. 96. 32.127.205. 

DATA 165. 95.197. 97.208.236.165. 96. 197. 98. 
DATA208.230. 166. 94.165. 93. 32.125.205. 32. 
DATA 1 27 . 205 .138. 32.125. 205 . 32 .127. 205 . 76 . 
DA f Al 25. 205. 160. 0.169. 32.153. 60. 3.200. 

DATA 1 92 . 16. 144.248. 160. 0.132. 2.132.149. 

DATA196. 183.240. 40. 152. 170. 177. 187. 201 . 46. 
DATA208 . 33.192. 13. 176. 34. 36. 2 * 48. 30. 

DATA 198. 2.160. 12.153. 60. 3.200.132.149. 

DATA 192. 16.176. 10.232.228.183.176. 5.138. 

DATA 168. 76. 42.206. 96.164.149. 76. 60.206. 
DATA 76. 136.202. 165. 186.201. 7.240. 9. 56. 

DATA 41. 14.208. 1. 24. 76.237.245. 32. 18. 

DATA206. 120. 32. 56.248.165. 1. 41. 31.133. 

DATA 1.133.192. 32.125.202.169. 68.141. 24. 
DATA 3.169.203.141. 25. 3.173. 17.208. 41. 

DATA239. 141. 17. 208. 165. 185. 141 . 76. 3.165. 

DATA 193. 141 . 77. 3.165.194.141. 78. 3. 56. 

DATA165. 174.229. 193. 141. 79. 3. 165. 175. 229. 

DATA194. 141 . 80. 3.169. 0.141. 81. 3.141. 

DATA 82. 3.141. 83. 3.141. 84. 3.141. 5. 

DA TA22 1.169. 60.133. 95.169. 3.133. 96.133. 

DATA 98.169. 85.133. 97. 169. 255. 133. 252. 169. 
DATA120. 133.251. 141. 4.221.169.217.141. 14. 

DATR221 .169. 42. 32.201.205. 32.125.202. 36. 
DATA 185. 16. 11.169.120.133.252.169. 52.133. 
DATA251 . 141 . 4.221.165.193.133. 95.165.194. 

DATA 133. 96.165.174.133. 97.165.175.133. 98. 
DATA169.197. 32.201.205. 76. 52.203.234.234. 
DATA 169. 0. 133.250. 169. 160. 133.251. 32. 62. 

DATA207 .169. 0.133.250.169.224.133.251. 76. 

DATA 62.207.163. 53.141.214.253.169.104.141. 
DATA 76.253. 169.204. 141. 77.253.169. 89.141. 
DA f A 78. 253. 169. 206. 141 . 79.253.169. 53.133. 


874 

1584 

1323 

1121 

1604 

1188 

1357 

1421 

1578 

642 

1079 

1035 

1561 

1060 

1498 

1094 

1015 

1640 

640 

1640 

1119 

922 

1479 

1143 


1040 

1430 

1554 

1350 

1272 

1107 

1175 

1592 

772 

1069 

1356 

1243 

1278 

896 

1033 

1087 

983 

1348 

1051 

1553 

953 

686 

1212 

1560 

1411 

1265 

1240 

1562 

1369 

1603 

1359 

1612 

1513 

1572 

1534 
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4200 DATA 1, 36,162, 32,160, 0,177,250,145,250, 1273 
4210 DAT A200, 208, 249, 230, 25 1,202, 224, 0,208,240, 2012 
4220 DATA 36,234,330 


READV. 


Programm 2: 


i0 rem 

20 REM « S-TÜÜL 64 * 

30 REM «• LI ST IMG 2 * 

40 REM «TOOLKIT VERSCHIEBEN« 

50 REM ««*«««««««««««««««««« 

60 = 

70 REM STEFFEN HAEFEL INGER 
80 REM HflUFFSTR. 11/1 

30 REM 7400 TUEB INGEN 

100 REM TEL. : 07071/26427 
110 : 

120 I FPEEK < 46 ) > 1 2THENPR 1 NT " DAS PROGRAMM NUR EINMAL 
1 30 GÜSUB250 : P0KE46 , PEEK ( 46 > + 1 6 
1 40 PÜKE45 , PEEK <C 45 > +29ANB255 
1 50 I FPEEK < 45 ) C23THENP0KE46 , PEEK < 46 ) + 1 
160 : 

1 70 CLR : A=PEEK < 45 ) +PEEK < 46 > «256-4036-29 
180 £”49152 

1 90 FÜR I »0104095 = POKEA+ 1 , PEEK < B+ 1) : HEXT 
200 ; 

210 A»A+4096 

220 FÜR I =01028 • READB : POKEA+ I,B : NE/T 

230 PRINT "JETZT ALLE ZEILEN BIS AUF ZEILE 1000 

240 END 

250 REM DATA-KÜNTRÜLLE 

260 FÜR I =01028 = READB = S=S+B : NE/T 

270 I FS032 1 0THENPR I NT " DAT AFEHLER ! ! " = END 

280 PR I NT " DATEN OK ! " : RESTÖRE : RETURN 

290 = 

300 DATA 164, 20,165, 21,132, 90,133, 91, 56 
310 DATA233, 16,132, 35,133, 96,160, 0,169 

320 BATA208, 132, 88,133, 83, 32,131,163 
330 DATA 76, 0,192 

340 END 

1 000 A=PEEK < 45 ) +PEEK < 46 > «256-29 : SVSA : NEW 


STARTEN 


! ! " : END 


LOESCHEN 


i i » 


Human Engineered Software, 150 North Hill Drive, Brisbane, CA 94005 
800-227-6703 (in California 800-632-7979) Dept. C20 



HesWare is a trademark of Human Engineered Software. Facemaker is a trademark of Spinnaker Software. VIC 20 and Commodore 64 are trademarks 
of Commodore Electronics Ltd. Atari is a registered trademark of Atari, Inc. IBM is a registered trademark of International Business Machines 
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Das SPRITE-Programm ermöglicht 
das Setzen und Bewegen von bis zu acht 
(0-7) Pseudo-SPRITES. Die SPRITES 
sind 8 x 8 bit groß. 

Das SPRITE-Programm liegt im Spei- 
cher von 5120 ($ 1400) bis 7423 
($ 1CFF). Für Zeichendefinitionen ste- 
hen 31 Zeichen frei (ASCII 33-63). 
Zusätzlich zum SPRITE-Programm 
(MSPRITE) muß vor jedes BASIC-Pro- 
gramm ein Vorprogramm (LSPRITE). 
Zu den normalen BASIC-Befehlen 
kommen noch einige zusätzliche zur 
SPRITE-Steuerung. Sie werden mit 
SYS aufgerufen. 

SYS CH, 7 „16 Hexa-Zahlen“: 
Definiert das Zeichen mit dem ASCII- 
Code Z+23 

SYS SS,S,X,Y,Z,YR,XR: 

Setzt an die Stelle X/Y den Sprite S mit 
dem Zeichen Z und der Richtung XR/ 
YR 

SYS MO,S,YR,XR: 

Gibt den SPRITE S die Richtung XR/ 
YR 


PROGRAMM 1: 

Iß FORI «51 20+1024101+1 02 2 


SYS 6544,XR,YR: 

Gibt dem SPRITES # 3 und # 4 die 

Richtung XR/YR 

SYS PO,S,X,Y,Z,YR,XR: 

Holt die Position X/Y, das Zeichen Z 
und die Richtung XR/YR des SPRI- 
TES S 

SYS CO,Sl,S2,E,T: 

Kontrolliert, ob sich die SPRITES 
S1,S2 in E-Punkte-Entfernung befin- 
den. 

SYS AL,S,E,T: 

Kontrolliert, ob sich in E-Entfernung 
vom SPRITE S ein anderer befindet (in 
Speicherstelle 781 steht welcher) 

SYS CA,S,T: 

Kontrolliert, ob sich unter dem. SPRI- 
TE S nur Leerstellen befinden 
SYS JO,T,YR,XR: 

Holt die Richtung XR/YR und den 
Trigger T des Joysticks 
SYS VC,X,Y,Z,L,F: 

Zeichnet eine waagerechte Linie vom 
Punkt X/Y mit dem Zeichen Z, der 
Farbe F und Länge L (Z ist Bildschirm- 
code) 


SYS HC,X,Y,Z,L,F: 

Dasselbe wie bei VC nur für eine senk- 
rechte Linie 

POKE 0,0: 

Schaltet die SPRITES ab 

POKE 0,8: 

Schaltet die SPRITES an 
POKE 6422,29: 

Setzt die SPRITES mit ODER 
POKE 6422,93: 

Setzt die SPRITES mit EXCLUSIV 
ODER 

Zu beachten ist, daß SYS SS.... nur 
verwendet werden darf, wenn die 
SPRITES angeschaltet sind und daß, 
wenn SPRITES angeschaltet sind, nicht 
von Kassette geladen werden darf. 

Das Programm MSPRITE ist in zwei 
BASIC-Programmen in DATA-Zeilen 
abgelegt. 

Die Programme MSPRITE2, LSPRITE 
werden automatisch nachgeladen. 
Hinter dem Programm LSPRITE be- 
findet sich auf der Kassette noch ein 
DEMO-Spiel (SPACE-BATTLE). 


: READA : S=S+A : PÜKEI , fl : NEXT : IFSO120770THENPR INT "ERROR 

DflTflS" : STÜP 

20 PÜKEI 98 * 1 : PQKE631 * 131 : END 

1000 DATA32*0* 20* 104 104 104 1334 1 4 1694 294 1334 24 1604 0)324 80 

DATA24 4 1454 14 2004 1 92 4 8 4 208 * 246 * 32 * 1154 04 764 1 154 04 2344 234 
DATA32* 1154042014404 1444 124 201 4 71 4 1764 84 201 4 504 144*16*201 
DATA65 4 1 76 4 1 4 36 4 56 4 233 4 7 4 234 4 234 4 234 4 234 4 234 4 234 4 234 > 234 4 4 1 
DATA 1 5 4 1 0 4 1 0 4 1 0 4 1 0 4 96 4 234 4 234 4 234 4 234 , 234 * 234 4 234 4 234 4 234 4 1 62 
DATA32 4 32 4 24 4 1 62 4 4 4 10 * 38 > 37 4 202 > 208 4 250 4 32 4 32 4 24 4 162 ,4 
DATA 1 0 4 38 4 97 4 202 * 208 * 250 4 1654 97 48641 68 > 3 1 * 82 4 44 * 226 47640 
DATA 169 4 2404 141 , 5 , 144 , 1694 04 1334 04 764 584 1964 804 1 134 404 19 
DATA 169 4 24 , 141 , 1 , 3 , 1 69 , 112 , 141 , 2 , 3 , 36 * 2004 251 4 864 43, 162 
DATA724 1604 154 13342104 1304 104 13342004 12 , 24 , 121 , 2 29 , 13342004 138 


IN 


1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1 100 
1 110 
1120 
1 130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 

T260 

1270 


.81 


DATA10* 104 104 12 , 33 , 212 , 121 , 223 , 133 , 223 , 163 , 2 , 121 , 212 , 133,212 
DATA 13242114 1044064 1004 1654 1 64 4 233 , 82 , 86 , 33 , 32 , 1 6 4 1774 124 , 128 
DATA2224 2554 1214 2314 274 187*2314218*238*185* 1854 904 1764 644 17,246 
DATA 1 63 4 8 4 1 33 * 16 7 * 1 52 * 74 , 74 > 74 4 74 > 744 20 1 , 2 , 1 1’’ 6 * 7 > 24 > 1 05 
DA I A28 4 1414214 25 4 96 > 24 * 1 05 > 1 24 > 141 4 21 4 25 * 96 * 2 1 > 37 > 1934 1 o ^ 
DATA204* 29* 1844 1634 2554 1514 1544 524 2264 124 , 1454 924 78* 1 184 1004 23 
DATA724 1524724 138*72432*208*24*234* 1524 104 104 104 168* 1304 10 
DATA 10 4 104 1704 1854 04 1284 204 04 204 1574 04 28*200* 2324 1904167 
DATA208*241* 1044 1704 104* 168* 1044964 109* 1204884 132*85*81*2324 
DATA0* 22* 14 23*494 574 2374 424 854 16* 163*97* 18*20* 146*226 
DATA 1 65 * 248 *74*74*74 * 170*24*32* 112*25* 165*247474474474*24 
DAT A 1 0 1 * 209 * 1 33 * 209 * 169*0* 1 0 1 * 2 1 0 * 1 33 * 2 1 0 * 1 62 * 0 * 189*48*25* 168 
DATA 183 * 60* 84 32* 1124 20* 224* 4 , 208* 242* 96* 156* 214* 117 *_132 * 136 
DATA 160 * 0*76* 144*24* 183*26*41 * 172 , 24 , 76 , 112 , 25*208* 63* 130 
DATA 145 *209 * 1654 2104 24* 105* 120* 133*210* 173* 134*2* 145*209*96* 101 
DATA 1 60 * 2 * 32 * 0 * 20 * 1 53 * 97 * 3 * 1 53 * 1 07 * 3 * 1 36 * 208 * 244 * 96 * 1 30 
DATA 165 * 249* 10* 10* 133*97* 10* 10* 10* 133*20* 169* 

DAT A0 * 169*0* 145*20*200* 192*32*208*249* 165*248*41. 


,, 28 , 133* 21 


* 160 
24* 101 
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1280 

DATA20, 1 

33.* 20.« 165 j 

250 

, 10, 10, 

10, 

170 

, 160, 0, 

189 

,0,2 

9, 

145,20 

i 

290 

DATA232, 

200.« 192 j o i 

208 

, 24b , 2d 

14,2 

34, 

234,234 

,23 

4,23 

4, 

234 , 234 , 234 , 234 

i 

300 

DATA 166, 

20.« 169,8.« 1 

33, 

20 , 1 65 , 

247 

,41 

, 7 , 240, 

20, 

168, 

94 

, 0 , 23 

i 

310 

DATA 126, 

16,28, 136, 

208 

, 24 f , 282 , 1 98 , 

20,208, 

241 

,234 

, 2 

34,234,234,234 

i 

320 

DATA 165, 

248 j { 4 i ( 4 j 

74, 

22 , 1 20 , 

25, 

165 

,247,74 

, 74 

, { 4 , 

24 

, 101,209 


1 330 DATA! 33 , 209 , 1 63 j0j 1 01 , 2 i 0 , 1 33 , 2 1 0 > 1 62 ,0,1 38 , 72 , 1 83 > 48 , 25 , 72 
1 340 DHT H 1 68 , 1 77 , 203 , 1 57 , 60 , 3 , 20 1 , 32 , 24 0 , 6 , 1 66 , 37 , 1 68 , 32 , 0 , 25 
1 350 DH I fl 1 04 j 1 68 , 1 65 ,97,1 45 , 203 , 1 04 , 1 70 , 230 , 37 , 232 , 224 j 4; 208 , 219, 3b 
1 360 Dfl ffl 1 00 , 1 52 , 244 , 1 1 5 , 53 , 1 8 , 243 , 58 , 2 1 1 , 1 r' 3 , 47 ,206 , 82 ,85,99, 152 
1370 DATA72, 24.' 101 , 97, 133 , 37 , 73, 255, 41 , 168, 240, 2, 104 , 96, 104 , 16 
1380 IlATflS,24, 163, 168, 101,37, 133, 37, 36, 56, 165,97,233, 168, 133,97 
1 330 Dfl I A36 ,31, 160, 165, 54 , 1 30 , 64 , 85 > 1 80 , 66 ,208, 106, 101, 104,7 , 112 
1400 Dfl ffl 1 65 , 24 7,1 33 , 3 7 , i 65 , 252 , 32 ,80,26, 165,97, 133 j 247 , 1 65 , 248, 1 83 
1410 DflTfi97 , 165,251,32,80,26, 165,37, 133,248,96, 178,40,0, 136,6 
1420 DflTA32, 128,26,76, 160,25,99,88,80, 125, 131,179, 103, 124,22,216 
1430 DATA 160,0, 177,93, 153,247,0,200, 192, 6, 208, 246, 177,99, 153,54 
1440 DflTflS, 200, 192, 10,208,246,96, 133,93, 138,98,208,233, 163,0, 133 
1450 LATA 160,0, 185,247,0, 145,93,200, 132,6,208,246, 185,54,3, 145 
1 460 DflTfl39 , 200 , 132, 10, 208 , 246 > 36 , 1 48 , 1 58 , 1 90 , 1 59 , 164,32, 1 52 , 28 , 19 
1 4 70 Dfl ffl 1 1 8 , 258 j 249 , 1 04 , 48 , 34 , 85 , 1 54 , 1 63 ,174, 60 , 38 , 1 42 , 1 3 x , 169 ,127 
1480 DflTFllbS, 0, 133,38, 169,3, 133, 100, 169,64, 133,93,32, 176,26,32 
1490 DATA64, 25, 165,33,24, 105, 10,133,99, 198,98,208,239,234,234,234 
1500 DATA 165, 0, 133,98, 165,93,56,233, 10, 133,93,32, 176,26,32, 160 
1510 Dfl I fl26 , 32 , 208 , 26 , 1 98 , 38 , 208 , 236 , 96 > 1 92 , 1 b9 , 1 38 , 101, 7b, 0, 248 
1 520 Dfl T fl 1 65 , 0 , 208 , 3 , 76, 191, 234 , 1 62 , 0 , 1 8 1 , 3 ( , 72 , 232 , 224 ,5 , 208 
1530 DATA248 , 165,20,72, 165,21,72, 165,209,72, 165,210,72,32,248,20 
1540 DATA 104, 133,210, 104, 133,203, 104, 133,21,104, 133,20, 162,4, 104, 149 
1550 DflTfl97 , 202, 16,250,76, 191,234,211,24,32,240,255,76, 191,234,86 
1560 DflTfll69, 8,32, 176,27, 169,255, 141,5, 144,32,95,229, 169,27, 141 
1570 DflTfl21 ,3, 163,64, 141,20,3, 169,78, 141,36, 145, 169, 199, 141,37 
1580 DAT fl 1 45 , 96 , 49 , 50,51 , 52 , 53 , 54 ,55,56, 34 , 141,179,26,34, 135 
1590 DflTflT41 ,15, 144,76, 128,24, 169,1, 141,134,2, 169,45, 160,7,32 
1600 DATA210 , 255, 136,208,250, 162,0, 160,0,32,240,255, 132,97,32,228 
1610 DAT A255 ,240,251,32,210, 255 , 164,97, 153,248,27,200, 192,7,208,236 
1620 DATA 185, 247, 27, 217, 161,27,208,6, 136,208,245,76, 128,24,76,210 
1630 DATA254, 246,92,249, 155, 188, 154, 179,49,50,51,52,53,54,55,57 


PROGRAMM 2: 

1 0 PR I NT " 3" : PÜKE56 , 20 : P0KE54 , 20 : CLR : PQKE0 , 0 : SVS7040 : POKE 150,7 

20 SE=5376 ; MO-5424 : CQ=548S : PÜ=5456 : Cfl=5552 = J0=5584 : HC=569S : VC=5744 : DE=5856 : 88=58 

88 

25 AL=6032 : CH=6 1 44 

30 SVSCH , 0 " 0000000000000000 " 

40 FÜRSF-7TD03TEP- 1 : SVSSE , SP , 0 , 0 , 0 , 0 , 0 • HEXT : FORSP=0TO7 : SVSDE , SP : HEXT = POKE0 , 8 


PROGRAMM 3: - DEMO 


10 

20 

88 

25 

30 

40 

100 

105 

106 

107 

108 
110 
111 
000 


PR I NT " ä" : P0KE56 , 20 : PÜKE54 , 20 : CLR : P0KE0 , 0 : SV87040 : POKE 150,7 

3E=5376 : M0*S424 : CÜ=5488 : PÜ=5456 : CA-5552 : JQ=5584 : HC=5 696 : VC=5744 : DE=5856 : SS=58 

j~j I '.ZZ A*. M *•! V* I ( * Ui Zürn K dl cäL 

SVSCH, 0" 0000000000000000" 

FORSP=?TÜ0STEP-1 : SVSSE, SP, 0, 0, 0, 0, 0 : HEXT : FORSF-0TO7 : SVSDE, SP : NEXT : POKE0, 8 
SVSCH, 1 V 7038EEF 3F 3BE3870 " 

SVSCH, 10" 1C3E7E7F7E63221C" 

SVSCH, 13" 1C7EF1F9F97E3C 00" 

SVSCH ,12" 3844C6DEF E7E7C38 " 

SVSCH, 1 1 " 003C7E9F 9F 8F7E38 " 

SVSCH , 2 " 000000FFFF000000 " 

SVSCH, 14" 187EFFFFFFFF7E18" : SVSCH, 1 5 " 00 1 83C7E7E3C 1 800 " : SVSCH , 16"00001S3C3C180 
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112 SVSCH, 17." 000000 18 18000000" 

120 SVSCH, 3 " ?F 1 22ECFCF2E 1 27F " 

12S SVSCH , 4 " 00FF00000000FF00 " 

1 30 SVSCH .■ 20 " 0000000800000000 " 

1 35 SVSCH ,21" 000000 1 8 1 8000000 " 

1 40 SVSCH , 22 " 00000 1 070F 1 F 1 F 1 F " : SVSCH , 23 " 020F93E 1 F2F4F8E8 " 

145 SVSCH, 24" 1F1F3F2E6545F8E0" : SVSCH, 25" D8B870F0E0800000" 

1 50 SVSCH , 26 " 000 10/1 F3F7DFEF6 " = SVSCH , 27 " 0 1 030 1 0 1 070F 1F3F" : SVSCH , 28 "F6F3FFFFFFE7D 
BFB“ 

151 SVSCH, 23 " 1 E 1 D3I) 1 D3B7C7F7F " : SVSCH, 30"F?F7EFDF3FFFFFFF" 

1 60 SVSCH ,31" 3C42BDR 1 H 1 BD423C " 

170 SVSCH, 18" 3C99FFFF 66243C 18" 

171 SVSCH, 5" 00000000 1038286C" : SVSCH , 6 " FEFE923800000000 " 

180 GÜSUB700: SVSCH, 18" 0000000000000000 " 

199 BEFFNGE < X ) =SGN < < 128-X)*X>*. 4 _ 

200 POKE0 , 0 = FÜR I = 1 TÜ40 : SVSHC , I NT < 22*RND <1 ) > , I NT C 22#RND ( D ) , 52+ 1 NT Cl . 5*RNB kl >> , 1 , 

1 ■ NEXT 

220 SVSHC ,21,20,58,1,7: FÜR I =0TÜ3 : SVSHC , 20+ < I FIND 1 > , 2 1 + 1 / 2 , 59+ 1 , 1 , 7 = NEkT 

230 SVSVC , 1,22,38,5,1: RA=4 

280 PRINT "sasa! SPHCE - BfiTTLE " 

299 POKE0, 8 

300 SVSSS , 7 , 8 , 8 , 1 , 0 , 0 : XQ»0 ; VG=0 
3 1 0 SVSSS , 6 , 80 , 80,10,2,1 

320 SVSSS ,4,160,120,3,0,0 

330 SVSSS ,5, 0,0, 0,0,0 : FS=0 : SVSSS ,3,0, 0,0, 0, 0 : CF*0 

340 I FRATHEN: SVSVC, 1,2 1,37, RH, 1 _ . ,^ miTl „ cc 

400 SVS Jö , S • V , X : XG=XG+FNGE < X > '■ Vü-VG+FHüE C V) : SVSHÜ , 7 , VUHNB255 , XüHND^-j-j 
4Ü5 1 FSRNliF8=0THENSVSPÜ , 7 , X , V , Q , Q , Q : SVSSS ,5,X+10, V, 2, 0,4 = FS=5 
4 1 0 2=2+ 1 RND3 ; PGKE895 ,2+10 

415 I FFSTHENFS=FS- 1 : I FFS=0THENPÜKE885 ,0 : F 3=0 
420 SVSHL , 7 , 8 , S : I FSTHEN500 

440 M=W+ 1 RHD ! 5 3 1 FH T hInSvI' ü“? I NT ( 5*RND U > > ■ -2BNB255 , I NT <5*RND <1 > > ■ -2HNB255 

441 I F W= 7 THENS VSMO ,6,1 NT < 5*RNI) CD) -2RNB255 , I NT C 5#RND C 1 ) ) -2AND255 _ 

445 I FRNIi < 1 ) > . 9RNDCF »0THENS VSPG , 4 , X , V , G , Q , ß : SVSSS , 3 , X-8RND255 , V , 4 , 0 , 2 -j 2 ■ '-F=.j 

446 1 FCFTHENCF=CF- 1 : IFCF=0THENF'QKE865, 0 
450 SVSHL , 7 , 8 , S : I FSTHEN500 

460 I FFSTHENSVSHL , 5 , 8 , S ? I FSTHEN600 
490 GÜTÜ400 

500 TR=PEEKC?8D : IFTR=5QRTR=3RNDCF=0THEN440 

502 PGKE36877 , 220 : PQKE36878 , 15 = RH=Rfi- 1 „ t , T 

503 FÜR I = 1 4 TO 1 SST EP . 5 : P0KE36878 , 36- 1 *2 : PÜKE905 , 1 '■ FÜR J= 1TÜS0 : NEXT : NEXT 

504 IFRR-C0THEN900 

505 SVSVC, 1+Rfl, 21 , 32, 1,1= GOT 0300 

600 SVSCÜ ,5,4,9,81 : SVSCÜ ,5,6,9,32= I FS 1 +S2=0THEN440 

60 1 1=6: SC=SC+50 : I FS 1 THEN I =4 : SC«SC+50 

605 P0KE8B5 , 0 : 2Q=835+ 10*1 = FS=0 _ . 

606 PR I NT " &J»»i(HäSCÜRE = "RI GHT $ < " 0000000 " +M I C STR$ <*C),2;,6) 

607 IFSOCC+500THENRR=RR+1 : CC=CC+1000 

608 I F RR=6THENRR=5 

£ 1 0 P0KE36877 , 220 : PÜKE36878 ,15 

f, 1 2 FORQa 1 4T0 1 83TEP . 5 : P0KE36878 , 36-Q*2 ; POKEZQ , Q : FÜR J= 1TÜ50 : NEXT = NEftT 

614 I F I «6THENSVSSS ,6,0,0,10,1 NT ( 5*RND (1 ) > -2RND255 , I NT < 5*RNB < 1 ) > -2RND255 : OOTU400 

620 GÜTÜ300 

T 0 Ö P 0 Hs E « J F 'o S ( ' > 0 

70 1 PÜKE0 , 0 : FÜR I = 1 TÜ80 ; SVSHC , I NT < 22*RNB Cl)>, I NT C 22*RHB C 1 ) ) , 52+ 1 NT C 1 . 5*RNB C D ) , 1 , 

703 E SVSHC ,21,20,58,1,7 = FÜR I =ÜTÜ3 : SVSHC , 20+ C I AND 1 ) , 21 + 1/2, 53+ 1,1,7 = NEXT 
704 SVSHC, 10,9,50,1,1 
7 1 0 PR I NT " S0uffiaMJ»»l*IS767ii»l676767 " 

720 PRINT " lkiii8989ÜiitB38389 " 

725 PR I NT " Hil67l»*»fc>7iK7i**ll67 " 

726 PRINT"(»B9lli»»iB9liß9>i*lB9" 

735 PR I NT " klB7lk»»»ik5?k»»iB7 " 

736 PR I NT " k»!89k»*iii»l89ki»H89" 


Februar 1985 


CPU 43 



CPU-Game 




740 PR I NT " I*iifc?67iil»l676?67 " 

?45 PR 1 NT " >Ü#l8989l®il898989 " 

750 PR I NT " lk»»feB**£?IIS7liiMS7 " 

755 PR I NT " »•»*»»®»t89K89li§»i39 " 

760 PR I NT " lil67li*»IS?HS7«»»l67" 

765 PR I NT 11 »#!89>»®it39H89» »*#139 " 

770 PR I NT " d #S*1676 7>#i(676767 " 

775 PR 1 NT " )»»»t39S9»ül893989 " : PR I NT " T ■ P0K.E36867 / 1 74 

776 E't- 1 '■ SV=- 1 

777 F0RX-4TQ17 : Zl*fiSC<MID$< "SPRCE - BflTTLE" /X-3/l>>: Z-Z1RND63 : I FZO32THENGO8UB80 
0 

778 HEXT 

780 EV= 1 60 : SV* 1 : X=0 : 2=63 : Z 1 *Z • GO8UB800 

790 FORX-2TÜ20 = Z 1 *RSC ( M I D$ C " 1 984 BV SE I CH I SOFT 'S X- 1 , 1 > > : Z*Z 1 RND63 : 1 FZO32THENG0 
SIJB800 

795 NEXT : FÜR I * 1 TO4000 : HEXT 

796 PR I NT " 71" ■ FÜRSP-7TQ0STEP- 1 = SVSSE / SP ,0,0, 0,0,0: NEXT : FORSP*0TO7 : SVSDE , SP : NEXT : R 
ETURN 

800 FL=1 : P*32768+8äüZ : IF2=63THENP=7672 : FL=0 
802 flfi*PEEK<199) 

805 FÜRL*0TO7 : POKE7680-8#13+L/ PEEKCP+L) = NEXT 

809 PQKE36878 j 15 : PÜKE36877 » 254 

810 XI =80 : S= < 8*X~80 ) /8 : FÜRY-80TOEYSTEPSY* 1 0 : SVSSE / 7 / X 1 / V , 1 9 / 0 / 0 : X 1 *X 1 +S : P0KE3687 
6j 240-Q 

811 ß=Q+5 

8 1 5 SVSDE / 7 : NEXT : P0KE36878 , 0 ■ P0KE36876 / 0 : Q=0 

820 3VSHC > X > EV/8 .-2+128/1/1 : IFFL=0THENPOKE7680+INT<EVX8>*22+X, ZI 
830 RETURN 

900 POKE0 .. 0 : PR 1 NT " □ateMiSä SC '• "SC : IF8C>HITHENHI*SC 
905 PRINT" asm HI : "HI 

9 1 0 FÜR I *0TÜ7 : P0KE36879 / 88+ I ; FÜRS* 1 TÜ20 : NEXT : SYS JÜ / S / Q / Q : I FS-0THENNEXT = G0T09 1 0 
920 PR I NT " :i" ■ SC=0 : CC=0 • P0KE36879 / 8 : GOTÜ200 


PROGRAMM 4: 

1 0 PÜKE56 i 20 ; PÜKE54 , 20 • CLR 

20 FÜR I *5 1 20TO I + 1 023 = REflDfi : S=S+R : PÜKEI / H : NEXT : I FSO 1 1 0467THENPR I NT " ERROR I N DRTR 
3" : 3TÜP 

30 P0KE138, 1 •■PÜKE631, 131 :£ND 

1000 DRTR 138/ 72 j 152/72/32/115/0/32/ 158/205/32/247/215/ 104/ 168/ 104 

1010 DRTR 170/165/20/96/ 234 / 234 / 234 / 234 / 234 / 234 / 234 / 234 / 234 / 234 / 234 / 234 

1020 DRTR 133/ 20/ 138/72/ 152/72/ 164/20/234/32/ 162/211/32/ 115/0/32 

1030 DRTR 139/ 208/ 133/73/ 132/74/32/208/219/ 104/ 168/ 104/ 170/96/234/234 

1040 DRTR32/ 0/20/ 234/ 234/ 165/20/ 10/ 10/24/ 101/20/ 10/24/ 105/64 

1050 DRTR133/ 1/ 169/3/ 133/2/96/ 106/ 127/204/78/ 14/38/117/94/67 

1060 DRTR32/64/20/ 165/20/ 160/2/ 145/ 1/96/20/ 121/50/215/202/ 169 

1070 BRTR72/ 177/209/74/74/ 197/249/240/3/ 104/232/96/104/ 145/209/232 

1080 DRTR96/ 89/ 83/ 65/ 89/ 88/ 0/0/80/ 90/ 82/82/ 224/ 174/ 61/56 

1090 DRTR8S / 89 / 90 / 76 / 70 / 24 1 / 125/ 184/119/113/202/64/ 13/45/117/248 

1100 DRTR 160/ 0/ 132.-70/ 185/ 144/20/ 133/69/32/0/20/ 153/224/3/200 

1110 DRTR192/5/208/240/96/ 148/44/48/51/ 186/ 159/ 192/167/ 169/ 175/ 129 

1120 DRTR162/4/ 160/6/ 177/1/197/20/240/22/200/ 192/ 10/208/245/230 

1130 BRTR20/202/20S/238/76/ 148/21/3/ 126/249/36/ 151/39/41/94/ 188 

1140 DRTR76/ 160/21/27/244/118/ 184/215/ 132/203/ 198/29/51/3/2/26 

1150 DRTR165/ 21 1/72/ 32/ 0/27/ 104/ 133/ 21 1/96/ 193/203/ 123/56/59/210 

1160 DRTR76/ 128/23/ 160/0/32/0/20/ 145/1/200/ 192/2/208/1/200 

1170 DRTR192/ 6/ 208/ 241/ 234/ 234/ 234/ 234/ 234/ 169/32/ 145/ 1/200/ 192/ 10 

1180 DRTR208/ 249/ 96/ 160/22/243/ 192/ 142/4/29/80/ 154/ 13/3/2/ 108 

1190 DRTR32/ 96/ 20/ 160/4/32/0/20/ 145/ 1/200/32/0/20/ 145/ 1 

1200 DRTR96/20/ 145/1/200/ 192/ 6/ 208/ 236/ 96/ 48/ 33/ 216/ 79/ 59/ 19 

1210 DRTR32/96/20/ 160/0/. 177/ 1/32/32/20/200/ 192/2/208/ 1/200 

1220 DRTR192/ 6/ 208/ 241/ 96.. 192/ 6.. 208/ 236/ 96/ 220/ 202/ 128/1/0/31 

1230 DRTR32/96/20/ 165/1/72/ 165/2/72/32/64/20/32/0/20/ 104 
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Das ternniefddrecfttJictie Gtenefemrgungsverfahreri 
war bei EXjJCklegueg diesejr Ausgabe (26.1 184| 
nbch nicht ab(jiesdhloS^en 


Per ASCÖMAkustlk- 
Koppler: Kompott 
anschlußfertig und nrüt 
leistungsf^iigeni 
komfortablen 
Betriebsprogratrirn 
„CONT ACT 64“ auf 
Diskette. 

Steckmodul, Handset 
und „CONTAGT 64“ 

für Commodore 64: 


* unverbindliche Pteisemplcfolung 

Im Fachhandel 
fragen oder Information 
anfordem! 


ln Kürze lieferbar für Commodore 
3000er/8000er Serie. Atari 400/800 und 
XL*Modelle, Spectrum und alle Computer 
mit RS232-Schnitt$telle; OTQ 
unverbinai. Prei&empfehiung Zig)**. 


COMJWtft-SOmVM&UNO 

COMPUmUtUBtHC*. 

Dynamics Marketing GmbH. 
Gro8e®*ck«nstr«afe 11, 2Ö00 Hwntwrg 1 


1240 BATA133.98. 104.133.97.160.0.177.1.24. 101.20.209.97. 144.19 
1250 BHTR177. 1.56. 229. 20. 209. 97. 176. 10. 200. 192. 2. 208. 233. 169.1 
1260 BfiTfi?6. 32. 20. 169.0.76.32.20. 169. 1.32.32.20.96.51.41 
1270 DflTfl32.96.20. 160.6. 177. 1.201.32.208.232.200. 192. 10.208.24 -j 
1280 BATB76. 158.21.201.210. 170.0.50.52. 188. 177.79.8.206.0.57 
1290 DATA 169. 127. 141.34. 145. 173.32. 145.41. 128. 133.20. 169.25.J. 141.^4 
1300 DATA145. 173.31.145.41.28.24. 101.20.73.255. 133.20. 173.31.145 
1310 DATB41 . 32. 133.21.234.160.0.165.20.41.128.240.1. 200.165. 20 
1320 DATA41. 16.240. 1. 136. 162.0. 165.20.41.4.240.1.202. 165.20 
1330 BATA41 . 8.240. 1.232. 165.21.41.32. 133. 1. 169.0. 197. 1.208 
1340 DATA2. 169.1.32.32.20.234. 169.82. 133.70. 138.32.32.20.198 
1350 DATB69. 152.32.32.20.96.253.214. 187.244. 121.77. 108. 188. 141.106 
1360 DATft32. 160.20. 174.225.3. 172.224.3. 173.228.3. 141 . 134. 2._24 
1370 DATA32 . 144.24. 173.226.3.32. 128. 25. 232. 224. 23. 240. 5. 206. *27 
1380 DATA3. 208. 236. 96. 24. 233. 128. 129. 96. 254. 245. 26. 36. 129.151. 14 
i390 DATA32. 160. 20. 174.225.3. 172. 224. 3. 173.228.3. 141 . 134.2. 24 
1400 BATA32. 144.24. 173.226.3.32. 128. 25. 200. 206. 227. 3. 208. 240. 9b 
1410 DATA198. 20.94.226.242.53. 213. 255. 140.197. 162.30. 119.205. 136.7b 
1420 DATA 165. 0. 72. 169.0. 133.0. 165.1.133.99. 165.2. 133. 100.32 ^ 

1430 BAT Al 76. 26. 32. 160.25.32.208.26. 104. 133.0.96.232. 147. 63.288 
1440 BATA165. 0.72. 169.0. 133.0. 165.1.133.99. 165.2. 133. 100.32 
1450 BATA176.26.32.64.25.32.208.26. 104. 133.0.96.250. 149.2.58 
1460 BAT A32 .96.20 . 32 . 192.22. 169.0. 160.3. 145. 1 . 96. 33. 224. 2l9_ 

1 470 BATA200 . 240 . 1 84 . 233 . 83 . 80 . 65 . 67 . 69 . 32 . 66 . 65 . 84 . 84 . 7b . 69 
1480 DATA 165. 0. 72. 169.0.133.0.104.72. 133.98. 169.3. 133.100.169 
1490 BATA64. 133.99.32. 176.26.32.64.25. 165.99.24. 105. 10. 133.99 
1500 BAT A 1 98 . 98 . 288 .239.32.80.23.234.234.234. 234 . 234 . 2 34 . 1 84 , 7 * .133 
1518 BATA98. 165.99.56.233. 10. 133.99.32. 176.26.32. 160. 25. 32. 208 
1520 BATA26. 198.98.208.236. 104. 133.0.96. 15. 190. 13.241. 182. 132. .-5 
1530 BATA162. 0. 181.97.72.232.224.4.208.248.32.96.20.32.3.21 
1540 BATA162. 3. 104. 149.97.202.224.255.208.248.96.7. 1. 121.35.30 
1550 BATA231. 161. 174.242. 187.213.75.50.254.200.237.18.62.0. 17-J.210 
1 560 BAI A32 . 96 . 20 . 32 .3.21.76. 1 60 . 22 . 1 ( 7 . 53 .5.1 92 . 23 .11.1 99 

1570 BATA32. 96. 20. 165.20.72. 165.2.72. 165. 1.72.32.0.20. 104 

1580 BATA133 . 97. 104. 133.98. 104. 133.99. 165.20. 133.21. 16b. lj0.U4.i8 
1590 BATA32. 69.20. 160. 1. 177.97.24. 101.21.209. 1. 144.27. 177.97 
1600 BATA56. 229. 21 . 209. 1 . 176. 18. 136. 16.235.228.99.240. 1 1 . 160.3 
1610 BATA177. 1.201.0.240.3.76. 158.21.202. 16.210.76. 163.21.258 

1620 BATA245. 82. 128.47.80.39.56.71.64. 100.160.22.3. 135.0. 159 

1630 BATA143. 188.201.208. 120.242.253.33.223.224. 103. 17d. 1 j3. 192. 13. 210 
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Olympics 

Ein Spiel für den TI 99/4A mit Extended Basic 


Dieses Spiel ist für den TI 99/4A mit 
Extended Basic geschrieben. Gespielt 
wird mit der Tastatur. 

Nach dem Eintippen oder Laden des 
Programms wird es mit „RUN“ gestar- 
tet. Einige Sekunden später erscheint 
das Titelbild, und die Anzahl der Spie- 
ler muß eingegeben werden. Bis zu drei 
Spieler können teilnehmen. Danach 
sind die Spielernamen einzugeben. 
Hierbei ist zu beachten, daß die Namen 
der Spieler genau drei Buchstaben lang 
sind, da sonst das Programm an diesem 
Punkt nicht fortgesetzt wird. 

Bevor der Programmverlauf weiter be- 
schrieben wird, noch einige Erläuterun- 
gen. Bei allen vier Disziplinen ist es 
erforderlich, einmal zu laufen. Sie be- 
schleunigen Ihre Figur, indem Sie ab- 
wechselnd zwei beliebige Tasten (außer 
der Space-Taste) im richtigen Takt nie- 
derdrücken. Sie werden den richtigen 
Rhythmus schnell herausbekommen, 
wenn Sie die Geschwindigkeitsanzeige 
links unten beobachten. 

Bei jeder Disziplin ist eine große Anzei- 
getafel eingeblendet. Auf ihr befindet 
sich links oben der Punktestand nach 
der letzten Disziplin, rechts oben der 


Rekord. Links sind die erreichten Zei- 
ten bei den Laufwettbewerben bzw. der 
beste Versuch beim Speerwurf oder 
Weitsprung. Rechts ist der aktuelle 
Spieler ausgedruckt. Hinter „QUALI- 
FY“ steht die Zeit bzw. Weite, die Sie 
unter- bzw. überbieten müssen, um 
weiterzukommen. 

1. Disziplin: 100-m-Sprint 
Ein Ton ist das Signal für den jeweiligen 
Spieler, sich für den Lauf bereitzuhal- 
ten. Nach dem Startschuß müssen Sie 
loslaufen, d. h., so lange zu „huddeln“, 
bis Sie das Zielband durchlaufen haben. 
Sollten Sie schon vor dem Startschuß 
„huddeln“, gibt es einen Fehlstart. 
Beim dritten Fehlstart scheiden Sie aus. 
Haben alle Teilnehmer den 100-m- 
Lauf absolviert, so kommen Sie zur 2. 
Disziplin, dem Weitsprung. Hier müs- 
sen Sie nach Erklingen des Aufforde- 
rungstones los-„huddeln“. Nach einer 
Anlaufzeit sehen Sie die Sprunggrube 
auftauchen. Sind Sie nahe genug am 
Sprungbalken, so springen Sie, durch 
Drücken der Space-Taste, ab. Je länger 
Sie sie gedrückt halten, desto größer der 
Absprungwinkel. 

Für die dritte Disziplin, den 110-m- 


Hürdenlauf, gilt im wesentlichen das 
gleiche wie für den 100-m-Lauf. Aller- 
dings bleibt hier Ihre Figur, relativ ge- 
sehen, stehen und die Hürde bewegt 
sich auf Sie zu. Uber die Hürde sprin- 
gen Sie, indem Sie die Space-Taste so- 
lange gedrückt halten, bis Sie über die 
Hürde hinweg sind. 

Nun sind Sie bei der vierten Disziplin, 
dem Speerwerfen, angelangt. „Hud- 
deln“ Sie nach der akustischen Auffor- 
derung bis kurz vor das Rasenfeld. Der 
Speer wird mit der Space-Taste abge- 
worfen. Je länger sie gedrückt wird, de- 
sto größer der Abwurfwinkel. 

Sollten Sie bis jetzt noch nicht ausge- 
schieden sein, so beginnt das Spiel wie- 
der beim 100-m-Lauf. Allerdings mit 
einer verkleinerten Qualifikationszeit. 
Insgesamt werden die Qualifikations- 
bedingungen fünfmal verschärft, dann 
bleiben sie konstant. 

Sind alle Teilnehmer ausgeschieden, 
werden die besten acht Ergebnisse auf- 
gelistet. Die Liste bleibt so lange beste- 
hen, bis irgendeine Taste gedrückt wird. 
Danach erscheint wieder das Titelbild. 


1 ! <C) 1984 BY MICHAEL HENN/6951 BILLIGHEIM 

10 ORT ION BASE 1 • = OM WARN ING NEXT : ■■ CflLL CLEAR : •• CALL MAGNIFYC3)- CALL SCRE 
EN( 2 > 

20 D I M SL*C 3 > , WTC 4 > , WT$C 4 ) , PC 3 ) , FOC 3 > , ER»:. 3,4) , SP«: 7 > , P*C 8 > , PLC 8 > 

21 DATA 9-59,8. 17, 12.5,88.01 

22 Rl«l «* FÜR I«l TO 4 - READ WTC I ) : : NEXT I 

30 IMAGE H ##.##>" 

31 IMAGE "##.##=" 

32 I MAGE “####< «/ > ## . ## > " 

40 FOR 1*0 TO 8 •• CALL COLORX 1 , 16, 1 > ^ NEXT I * •* DISPLAY RTC 3, 6 > * "0 L. Y M P I C 
S" «* DISPLAY ATC 17,3)« "C C ) 1984 BY MICHAEL HEHN" * * DISPLAY ATT 10,2): "HON MANY 
PLAYERS? C 1-3)" 

50 ACCEPT ATT 10,26 )SIZE«: 1 )VALI DATEX "123" ): AN - DISPLAY ATT 5,6 )ERA8E ALL : "ENTER 
YOUR NAMES ! " * « MAN-AN 
60 FOR J=1 TO AH = * IsJ#2+8 

70 ACCEPT ATC 1 , 7 WAL I DATEC U ALPHA , NUMER I C ) • 8L$C < I -8 )/2 ) * : I F LENC 8L$C C I -8 )/2 ) )<‘ >3 
THEN CALL HCHARC 1,1, 32 , 1 60 ) * •* GOTO 70 
80 PC J ) , ERC J , 4 )®0 :: NEXT J 

100 Rai :: GOSUB 10000 FOR R3»l TO AH :* V«10 - W,Ta0 : : Wl*90 DISPLAY AT 
C 5 , 2 1 )S 1 2EC 6 ) : US I NG 30 * WTC 1 > 

115 IF ERC R3, 4 )»~i THEN 240 

1 20 D I SPLAY ATC 1 0+R3 , 3 )S I ZEC 3 ) « SL*C R3 ) * = FOR I « 1 TO FOC R3 ) * « CALL SPR I TEC #32-R3* 
3- 1 , 92 ,16, 73+ R 3*8 , 57+ 1 *8 ) * * HEXT I -DI SPLAY ATC 11,19 )S I ZEC 3 ) * SL*C R3 ) 

1.30 CALL SPRITEC #1 , 100,2, 157, 20, #2, 36, 1 , 161, 175, #3, 120,8, 157, 35, #4, 132, 16, 161,51 
) * : DI SPLAY ATC 9 , 20 )S I ZEC 6 ) * US I NG 30 * Q 
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HEXT I 


CflLL SPRITEC#!, 96, 2 


140 CRLL SOUHDC500,440,5,-1,5)= ! FOR 1=1 TO 750 
, 157, 35 ) 

150 FOR 1=1 TO 100 " CRLL KEYC0,K,S)‘ • IF S THEN 250 
160 HEXT I = « CRLL SOUHfX 10, -7, 0 > 

170 CRLL KEYC 0 , K • S ) : : IF S THEN 180 ELSE T=T+.3 " DISPLAY RTC 24, 18 ) ‘US ING 30 = T* 

. 1 " GOTO 170 

180 CRLL DELSPR I TEC #3 , #4 ) 

190 CRLt PRTTERHC #1, 100) = : T=T+1.23 = = CRLL KEYC 0, K, S ) = = IF 3=1 THEN V=40~( 40-V ) 
*fl ELSE V=40-C 40-V )*B " IF V<3 THEH V=3 

200 CRLL PRTTERHC #1,104)'« CRLL MOT I OHC #1,0 , V-2 . 2 > « • W=W+V* . 04 = • DI SPLRY RT C 24 , 
3 ) = US I HG " ####< =/ > ##.##>"= VT- 3 7 . 5 , TT . 1 " I F W< W 1 THEN 1 90 

210 IF Hl = 100 THEH 220 ELSE Hl = 100 " CRLL COLORC #2, 16 ) « « GOTO 190 
220 CRLL MOT I OHL #1,0,0 X = CRLL PRTTERHC #2 , 40 ) 

230 CRLL POS I T I OHC # 1 , Y , X ) = = ERL R3 , 1 >= I HK 1 00*C T/ 1 0 )-X+230 V 100 ' • DI SPLRY R T C 24 , 
18) = |JS I HG 30 = ERC R3 , 1 ) " DI SPLRY RTC 1 0+R3 , 1 1 )S I SEC 6 > « US I HG 30 = ERC R3 , 1 ) 

235 PC R3 )=PC R3 >+< 20-ERC R3 , 1 >+FOC R3 > )# 105 " I F PC R3 X 0 THEN PC R3 >-Q 

236 IF ERC R3, 1 »Q THEH ERCR3,4)=-1 «» MRH=MRN- 1 

237 CRLL WRC R , SL$C R3 ) , WTC ) , WT$C ) , ERC R3 , 1 > > « = CRLL T I 
240 HEXT R3 " IF MRH THEH 500 ELSE 3000 

250 FOC R3 )=FOC R3 )-l « = CRLL COLORC #3 1 -R3T3-F0C R3 > , 1 6 ) = = D I SPLRY RTC 1 3 , 1 9 >8 1 ZEC 4 > 

: "FOIJI 11 = = CRLL SOUHDC 400, -3, 3 > = « FOR 1 = 1 TO 300 = = HEXT I 

260 DISPLAY RTC 13, 19 >8 1 ZEC 4 X " " «« IF FOC R3 )THEN IF R=1 THEH 130 ELSE 1020 

270 ERC R.3, 4 )=~1 = = MRN=MRN- 1 " GOTO 240 

500 R=2 = = GOSUB 10000 = = CRLL ZC RH, ERC , ), SL*C ) ) 

510 FOR R2=l TO 3 = = FOR R3=l TO RH = = IF ERC R3, 4 )THEH 800 

520 U 1 =37 i « 14 , MA=0 = < V= 10 = = CRLL Z 1 C Q , WTC 2 ) , SL*C R3 ) , R2 , R3 , MR , ERC , > > 

560 CRLL SPR I TEC # 1 , 1 00 , 2 , 1 57 , 35 ,#4,1 32 ,1,161.143)" CRLL SOUHDC 500 , 440 ,4.-1,?)" 

FOR 1 = 1 TO 500 " CRLL KEY<0,K,S)" IF 8 THEH 580 
570 HEXT I • GOTO 900 

5R0 CRLL PRTTERHC #1, 100 >" CRLL KEYC0,K,S)= = IF K=32 THEH 650 ELSE IF S=1 THEH V 
*40-C40-V>*R ELSE. V=40-C 40-V )*B " IF V<3 THEH V=3 

590 CRL L PRTTERHC #1,1 04 ) = •' CRLL MOT I OHC # 1 , 0 , V ) « » W=W+V* .04 " D I SPLRY RTC 24 , 3 )S I 
ZF< 8 ) : US I HG " ####< =/ > " = Vt-37 .5 " I F W< W 1 THEN 580 

600 IF Wl=37 THEH DISPLAY RTC 21 , 17 ) = fl$ " DISPLAY RTC 22, 17 ) : B* " DISPLAY RTC 23, 

1 7 > « C$ » « CRLL HCHRRC 22,31,119,2)" W 1 =46 « « CRLL COLORC #4 , 1 6 ) = = GOTO 580 
6 1 0 CRLL MOT I OHC #1,0,0)" GOTO 900 

650 CRLL MOT I OHC# 1,0,0)" FOR PH=20 TO 80 " CRLL KEYC 0, K, S ) " IF K< >32 THEH 670 
660 HEXT PH 

670 D I SPLRY RTC 24 , 1 9 )S I ZEC 3 ) = US I HG " ## j " ' PH " CRLL PRTTERHC #1,1 08 ) ' = CRLL POS I T 
I OHC # 1 , Y , X ) " VY=S I HC PH/ 1 80*P I )*V = = VX=SQRC V*V-VY*VY ) 

680 CRLL PRTTERHC #1,112)" CRLL. SPR I TEC #3, 140, 2, 159 , X ) " FOR I=-VY/2 TO VY/3 " 
CflLL MOT I OHC #1,1, VX ) = * HEXT I • • CRLL MOT I OHC #1,0,0) 

690 CRLL POS I T I OHC # 1 , Y 1 , X 1 ) " CRLL LOCRTEC #1,161, XD" W=VX*VY/85 " FOR 1 = 1 TO 
90 " HEXT I " CRLL SPR I TEC #2, 140, 2, 159, XI ) 

700 CRLL SPR I TEC #1,100,2,1 59 , X 1 +8 ) " I F X > 1 39 OR W 1 =37 THEH 900 
7 1 0 ERC R3 , R2 )= I HTC C W-C 1 39-X )/8 )* 1 00+ . 5 )/ 1 00 

750 CflLL Z2C MR , ERC R3 , R2 ) , R2 , R3 ) ! : CRLL WRC R. , SL$C R3 ) , WTC ) , WT$C ) , ERC R3 , R2 ) ) 

770 IF R2=3 THEH PC R3 )=F'C R3 )+MR$140 " IF MflCQ THEH ERC R3 , 4 )=- 1 " MRH=MRH~ 1 
780 CRLL TI " CRLL DELSPR I TEC # 1 , #2 , #3 , #4 ) « « CRLL HCHRRC 2 1 , 1 , 1 1 9 , 96 ) = • CflLL HOHR 
R.C22, 1, 128,32) 

8 00 HEXT R3 « * HEXT R2 " IF MRH THEH 1000 ELSE 3000 

900 ERC R.3,R2)=-1 " DISPLAY RTC 1 1+R2, 21 )SIZEC 5 ) ' " FOUL" " IF MR=@ THEH DISPLRi 
RTC 10+R3, 1 1 )S I ZEC 6 ) • " FOUL" 

910 IF R=2 THEH 770 ELSE 1770 _ rTrriril 

1000 R=3 " GOSUB 10000 " FOR R3=l TO RH " V=10 " W,T=0 " Wl=105 " DISPLflv 
RTC 5 , 2 1 )S I ZEC 6 ) « US I HG 30 « WTC 3 ) 

1005 IF ERC R3, 4 )=-l THEH 1400 

1010 DI SPL RY RTC 1 0+R3 , 3 )S I ZEC 3 ) • SL.$C R3 ) ■ • FOR I = 1 TO FOC R3 ) ; ! CRLL SPR I T EC #32-RS 
1,92,16 , 73+R3#8 , 57+ 1 *8 ) « « HEXT I " DI SPLRY RTC 11,19 )8 1 ZEC 3 ) « SL$C R3 ) 

1020 Cfll I SPR I TEC #1 , 100,2, 157, 40, #3, 120,8, 157, 55, #4, 132, 16, 161 , 71 , #2, .108, 1, l6l,2 
56 ) " D I SPLRY RTC 9 , 2.0 )S I ZEC 6 ) • US I HG 38 > Q 

1030 CRLL SOUHDC 500, 440, 4, -1 , 5 ) " FOR 1 = 1 TO 750 " HEXT I " CflLL SPRI TEC #1 , 96, 

2 , j «57 , 55 ) 

1040'fOR 1=1 TO 100 " CRLL KEYC0,K,S)" IF S THEN 250 
1050 HEXT I " CRLL SOUHDC 10, -7, 0 ) 

1060 CRLL KEYC0,K,S )" IF S THEN 1070 ELSE T=T+.3 " DISPLAY RTC 24, 18 ) «US ING 30 = 
Tt . 1 " GOTO 1060 
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1 070 CRLL DELSPR I TEC #3 , #4 ) « ' CRLL COLORC #2,15) 

1 080 CRLL PRTTERNC #1,100)'= CRLL CO I NCC # 1 , #2 , 8 , Y ) " T*T+ 1 ' = CRLL KEYC 0 , K , 8 ) " I 
F K*32 THEH 1200 ELSE IF 8*1 THEN V*40-< 40-V )*R ELSE V*40-C 40-V )*B " IF V<3 THE 
N V=3 

1 090 CRLL PRTTERNC #1,104)" CRLL MOT I ONC #2 , 0 , - V/ 1.5)" W*W+ V# . 04 " CRLL CO I HC( # 
1 , #2 , 8 , X ) " I F X=- 1 OR Y=- 1 THEN 1 250 " DI SF'LRY RTC 24 , 3 ) = US I NG 32 ' V*37 . 5 , T* . 1 ' 

' IF W<W1 THEN 1080 
1100 CRLL PRTTERNC #2,36) 

1105 IF W > 1 30 THEN 1138 

1110 CRLL PRTTERNC #1,1 00 ) > ' CRLL KEYC 0 , K , 8 ) " CRLL CO I NCC # 1 , #2 , 8 , Y ) " I F S* 1 THE 
N V=4B-C 40-V )*R ELSE V*40-C 40-V )*B " IF V<3 THEN V=3 

1 1 20 CRLL PRTTERNC. #1,1 04 ) = ' T=T+ .9 " DI SPLRY RTC 24,3)' US I NG 32 = V*37 . 5 , T* . 1 " C 
ALL CO I NCC # 1 , #2 , 8 , X ) " CRLL MOT' I ONC #2 , 0 , -V/ 1.5)" W»W+V* . 04 «» I F X=0 AND Y*B TH 
EN 1105 

1 1 30 CRLL MOT I ONC #2 , 0 , 0 ) = ' CRLL PRTTERNC #2 , 40 ) ' = CRLL D I STRNCEC # 1 , #2 , X ) " X*SQRC 
X>" T= I NT C T* 1 0-X+6 )•••' 1 00 " ERC R3, 1 )=T •« GOTO 1300 

1200 IF Y THEN 1250 ELSE CRLL MOT I ONC #1 , -50, 0 ) " CRLL PRTTERNC #1 , 140 ) " CRLL MOT 
I ONC #1,0,0) 

1205 T=T+. 3 " CRLL KEYC0,K,S)" IF K=32 THEN 1205 ELSE CRLL LOCRTEC #1 , 157, 55 > " 
GOTO 1090 

1258 CRLL PRTTERNC #2, 112)" CRLL SOUNDC -180, -7, 8 ) " V»V*.8 " FOR 1 = 1 TO 25 " N 
EXT I " T-T+4 " CRLL PRTTERNC #2, 108 ) " GOTO 1880 

1 300 D I SPLRY RTC 24 , 1 8 )S 1 2EC 6 ) ' US I NG 30 ' T " DI SPLRY RTC 1 0+R3 , 1 1 )S I ZEC 6 ) « US I NG 30 


' T " W=C 22-T+FOC R3 
1310 PC R3 )=PC R3 )+W 
THEN ERC R3 , 4 )=- 1 ' 


IF ERC R3, 1 )>Q 


))*105 " IF W<0 THEN W*0 

CRLL WRC R , SL*C R3 ) , WTC ) , WT*C ) , T ) « •• CRLL T I 
MRN=MRN- 1 

1408 HEXT R3 " IF MAN THEN 1588 ELSE 3880 

1580 R=4 " GOSUB 10800 " CRLL COLORC 10, 16, 4, 1 1 , 16, 4 ) " CRLL ZC AN, ERC , ), SL.$C ) ) 
1510 FOR R2~l TO 3 " FOR R3=l TO RH " IF ERC R3, 4 )THEN 1900 
1 528 W 1 =45 ' ' W , MR , MR 1=8 " V* 10" CRLL Z 1 C Q , WTC 4 ) , SL$C R3 ) , R2 , R3 , MR , ERC , ) ) 

1 530 CRLL SPR I TEC # 1 , 96 ,12,1 57 , 29 , #2 , 1 88 ,2,1 57 , 35 > = ' CRLL SOUNDC 588 , 448 , 4 , - 1 , 7 ) " 
FOR 1=1 TO 500 " CRLL KEYC0,K,8)" IF S THEN 1550 
1540 HEXT I ' ' GOTO. 900 

1558 CRLL PRTTERNC #2, 100)" CRLL KEYC0,K,S)'= IF K=32 THEN 1658 ELSE IF S=1 THEN 
V*40-C 40-V )*fl ELSE V=48-C 40-V )*B " IF V<3 THEN V*3 

1 590 CRLL PRTTERNC #2 , 1 04 ) ' ' CRLL MOT I ONC #2 , 0 , V-2 , # 1 , 8 , V-2 ) ' ' W=W+V* .84 " D I SPLR 
Y RTC 24 , 3 )S I ZEC 8 ) ' US I NG " ####< =/ > " ' V*37 .5 " I F W< W 1 THEN 1 550 
1 688 I F W 1 =45 THEN D I SPLRY RTC 22 , 1 ) ' SEG*C R$ , 1,28)" CRLL HCHARC 22 , 3 1,118,2)" W 1 
=57 ' ' GOTO 1558 

1610 CRLL MOT I ONC #2 , 0 , 8 ,#1,0, 0 ) = ' GOTO 908 

1 650 CRLL MOT I ONC #2,0 , 0 , # 1 , 0 , 0 ) = ' CRLL POS I T I ONC #2 , Y , X ) " I F X > 1 36 OR W 1 =45 THEN 
900 

1655 FOR PH=20 TO 80 " CRLL KEYC8,K,8)" IF K< >32 THEN 1670 
1660 NEXT PH 

1 670 D I SPLRY RTC 24 , 1 9 )S I ZEC 3 ) ' US I NG "##;"' PH ' « VY*S I NC PH/ 1 80*P I )* V ' = VX*SQRC V# 
V-VY*VY ) 

1680 CRLL HCHRRC 22, 1, 118,2)" IF PH >50 THEN CRLL PRTTERNC #1 , 36 )ELSE IF PH >40 THE 
N CRLL PRTTERNC #1,40) 


1698 CRLL DELSPR I TEC #2)" Y=1 


FOR I=-VY/3 TO VY/3 


CRLL MOT I ONC #1 , 1,0)« ' FO 


R J=1 TO 5 " Y=Y+VX/26 . 5 ' = DISPLAY RTC 22, 1 ) ' SEG*C R$, INTC Y ), 28 ) " NEXT J 
1708 J=I/V*3 " IF JO. 8 THEN C=1 ELSE IF JO. 63 THEN C=2 ELSE IF JO. 3 THEN C=3 
ELSE IF J< . 3 THEN C=4 ELSE IF J-C.63 THEN C=5 ELSE IF JC.8 THEN C=6 ELSE C=7 
1710 CRLL PRTTERNC # 1 , SPC C ) ) " NEXT I = « CRLL POS I T I ONC # 1 , 1 . , J ) « ' CRLL MOT I ONC # 1 , 8 
, 8 ) ' ' CRLL LOCRTEC #1,1 59 , J ) = ' ERC R3 , R2 )= I NTC < . 9*Y-C 1 36-X )/8 )* 1 00 )/ 1 88 
1 750 CRLL Z2C MR , ERC R3 , R2 ) , R2 , R3 ) = ' CRLL WRC R , SL$< R3 ) , WTC ) , WT$C ) , ERC R3 , R2 ) ) 

1770 IF R2=3 THEN PC R3 )=PC R3 )+INTC MR* 15 ) " IF MR<Q THEN ERCR3,4)*-1 " MRN=MRN- 1 
1890 CRLL TI " CRLL DELSPR I TEC #1 ) " CRLL HCHRRC 22, 1 , 128, 32 ) 


1900 NEXT R3 ' = NEXT R2 ' 
2088 R1=R1 + 1 " CRLL TI. < 
3080 CRLL DELSPR I TEC ALL)' 


IF MAN=0 THEN 3000 

IF RI >5 THEN RI =5 " GOTO 100 ELSE 100 
CRLL CL.ERR " Rl = l " FOR 1 = 1 TO RH " IF PCIXPLC8)T 
HEN 3020 = ' PLC 8 )=PC I ) " P$C 8 )=SL.$C I ) 

3010 FOR J=1 TO 8 " FOR K=.J+1 TO 8 " IF PLC J XPLC K )THEN R$=P$C J ) " fi=PLCJ>" P 
$C J )=P$C K ) ' ' PLC J XPLC K ) " P$C K. )=R$ ' « PLC K )=R 

30 1 5 NEXT K " DI SPLRY RTC 3+2* J , 7 ) « STR$C J )& " . " 6«P*C J ) " D I. SPLRY RTC 3+2* J , 1 6 )S I ZE 
C 6 ) ' US I NG "###### " ' PLC J ) « ' NEXT J 
3028 NEXT I 
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3025 CRL.L KEYC0,K,S)= = IF 8*0 TUEN 3025 ELSE CRLL CLERR “ CRLL CHRRSET - GOTO 
40 

1 0000 FOR 1 = 1 TO 3 FO( I >=3 — FOR J=1 TO 3 :! ERC I , J )=0 — HEXT J !! HEXT I 
10010 OH R GOSUB 10500.. 11000.' 11500.- 12000 
10020 GOSUB 20000 ‘ : RETURN 
10500 R=.9? —6=1.05 

1 05 1 0 DRTR FFFFFFFFFFFFFFFF .. , 80C0R0908884828 1 .. .. .. R060202020202 , 80C0R0R0R090808 .■ 0 1 

1 0520 VlESTnRE 1 ^5 1 0 — FOR 1=34 TO 43 — RERD R* CRLL CHRRCI,R$) — HEXT 1 
1 0530 CRLL " CHRP/. 59 .. " 00E0R0E0000000000000003C4040403C000000446C5444440000003C4038 
M7%" 1 

10540 DRTR 00 1 83C7E7E3C 1 8 .• .■ .. .. , 0001030709 121 404.- 000000000000040E .. 0F 8EF 8F070 1 8 1 404 
1 0550 DRTR 000 1 0303030 10303 030303030 1 03030 1 , 000080C08000808 808080C08000008 
1 05F0 DR'T'R 000 1 0303030 1 070B .■ 070303235408 , 000080C0800090R , C08080804020 1 408 
1 0570 DRTR 0 1 03030 1 000 1 6 1 02 , 04080 1 0 1 0 1 020505 , 0080C08080C0C0E , E0E0C0C0408 .. 1 088303 

9 i 23C38 IF,. 1 F0F06 , 00008000002070C8 .■ 8502 _ ; . _ 

1 0580 DRTR FFFFFFFFFFFFFFFF 0080C0E0F0F8FCFE FF7F3F 1 F0F0 7030 1 , , , 00000000008008 1 8 

, j ' FFFFFFFFFFFFFFFF ,1818181818181818,, „ r . r . r . .. _ 

10590 DRTR , FF7F3F1F0F070301 , , , , 80C06030 1 80C0602 , , , 183C5R7E2418r'EFF , , , , , 00000000 
00010301 , , 0000000000008 

10600 FOR 1=92 TO 143 - RERD fi$ - CRLL CHRR< l , R* ) ! ! HEXT l 
10618 DRTR 12,11,10.5,10, 9. 5 

10620 FOR 1 = 1 TO RI - RERD G - HEXT I - RET URH 

11000 R*. 87 « : 8*1.1 - R$= " vttttttttuww " » ' B$=CHE$C 128 )&" ttttttttuw" !! C$* w 

MVt.tttt.tttU." 

1101 0 DRTR 6.5,7. 25 , 7 . 75 , 8 , 8 . 25 

11020 RESTORE 11010 - FOR 1=1 TO RI - RERD Q - HEXT I - RET URH 
1 1 500 CRI I CHRP'- 1 08 • " 406070584C46437 1 " 8,RPT$C " 0 " , 30 )& " 80C040404040404070 " ) 

1151 0 CRI .L CHRRC 112," 0000000000FE838 1 " M?PT.*C " 0 " , 30 >2, " 80006030 1 80CFE808 " ) 

11515 CRLL CHRRC 140, "01 03030301071 B0323570800000000000080C08030C08080R0D408 1 ) 
11520 R=. 91 ” * ' B= 1 . 05 

11530 DRTR 14,13.25,12.5,12,11.75 r . ir . t , 

11540 RESTORE 11520 - FOR 1 = 1 TO RI. - RERD ß - HEXT I - RETURN 
1 2000 DRTR 36 ,,0101 020 204040808 ,101 020204040808 , , 40 , , 0 1 020408 1 02 , 00006403 1 020468 

796 ," . 630C30C , 00000000030C30C , „ or . 

1 20 1 0 DRTR 1 28 , , FF , , FF , 1 20 , 00000000C0300C03 , , , C0300C03 , 1 82 , 000020 1 00804020 1 , , , 80 

4020 1 00864 , 1 40 , 0808040402020 101,,, 808040402020 101 _ ... 

12090 RESTORE 12000 — FOR 1=1 TO 7 :! RERD 3PCI) — FOR J=0 TO 3 RERD H$ — C 
RI L CHRRC RPC I )+.J , R$ ) ■ = HEXT ,J «« HEXT I - R=.87 - B=1.10 

1 2030 CRLL CHRRC 117, " 809CR222222222 1 CFF0 1 ", 1 00 , " 000 1 0303030 1 073B " , 1 02 , " 000080C08 
0 ">@f 08 M 

1 2040 J 0RLL CHRRC 1 04 , " 000 1 0303030 1 073B0303030254080000000080C08000808080808080402 

II ‘»j 

12050 FOR 1 = 1 TO 9 <« CRLL CHRRPRTC 48+1 , R$ ) ' = CRLL CHRRC 107+1 ,R$) : : HEXT I 
12060 DRTR 75,80,84,87,90 . 

12070 FOR 1 = 1 TO RI - RERD Q - HEXT I " fi$*RPT$C CHR$C 128 >, 16 ) = : FOR 1 = 1 TO 9 
< «‘“fi**fl$fcRPT*C"v",9)S ! CHR*C107+I>&"u" HEXT I ^ fl**fl*S.RPT*< "v" , 36 ) < : RETURN 
20000 CRLL DELSPRITEC RLL. > : • CRLL CLERR - FOR 1 = 1 TO 14 - CRLL COLORC 1 , 1 , 1 ) - N 
FXT I 

80020 CRI L HCHRRC 1,1, 34 ,192)'= CRLL HCHRRC 7,1,1 36 , 256 > • ; CRLL HCHRRC 15,1,1 36 , 96 > 

• « CRLL HCHRRC 18,1,119, 224 > < • CRLL HCHRR< 22 ,1,1 28 , 32 > 

20030 FOR 1=2 TO 15 «' CRLL HCHRRC I , 4, 32, 26 > ' ; HEXT I 

20040 CRLL HCHRRX. 1 , 3 , 1 24 , 28 ) ! ! CRLL HCHRRX 7 ,3,1 24 , 38 ) : : CRLL HCHRRC 1 6 , 8 , 1 34 , 28 > ■ 

: CRLL VCHRRC 1,3,124,16)- CRLL VCHRRC 2,17,124,5) 

20050 CRLL VCHRRC 1 , 30 , 1 24 , 1 6 ) < « CRLL VCHRRC 11,19,125,4) „ r _ _ _ _ „ „ 

20060 D I SPLRY RTC 9 , 1 1 )S I ZEC 7 ) < " QIJRL I FY " ' ! DI SPLRY RTC 3,19 )S UEC 6 ; ' RECORD ‘ - D 

20070 VöR I = 1 ' TO 1 RH T > DISPLAY RTC 2+ 1 , 3 )S I ZEC 3 ) ■ SL$C I) - DI SPLRY RTC 2+ 1 , 8 )S I ZEC 6 
\;|jCTkir M ###### 11 ! PC I ) i : HEXT I 

20080 FOR 1=2 TO 10 !! CRLL COLORC 1 , 16, 1 ) - HEXT I >> CRLL COLORC 1 , 8, 1 , 1 1 , 12, 4, 1 
2, Ü4, 1, 13, 12,9, 14, 11,5) : : RETURN 
2 1 000 SUB WRC R , S $ , WC ) , W$C ) , E ) 

21010 IF P=1 OP. R=3 THEN IF E>WCR)THEN SUBEXIT ELSE 21030 
21020 IF E< WC R )THEH SUBEXIT 

21030 WCR)=E — W$CR)=8$ CRLL SOUHDC 1000, 440, 0, 220, 2, 550, 2 ) : : FOR 1 = 1 TO 12 ; 


• DISPLAY RTC 3 , 1 9 )S I ZEC 6 ) 


NEW 


« FÜR J*1 TO 50 « HEXT -J 
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IF EC I .• 4 >THEN 22020 
J=1 TO 3 = = CRLL SPR I TE< #32-3* I - J .• 92 


21040 DISPLAY RT<3, 19 )8IZE<6)= "RECORD" = = FOR J=1 TO 50 = = HEXT J = = HEXT I = = D 
I SPLRY RTC 5 , 1 7 ) • W$< R ) = = IF R=1 OR R=3 THEH D I SPLRY RTC 5 .• 2 1 >S I ZEC 6 ) = US I HG 30 = WC R ) 
= = GOTO 21060 

21050 DISPLAY RTC 5 , 2 1 )S I ZEC 6 ) : US I NG 31=W<R) 

21060 CRLL HCHRRC 5,30.124)== SUBEND 
22000 SUB ZCRH.EC, ),S$C >)= = FOR 1=1 TO RH == 

220 1 0 D I SPLflY RTC 10+1,3 )S I ZEC 3 > = S$C I ) = = FOR 
, 1 6 , 73+ 1 *8 , 57+ J*8 > = = HEXT J 
22020 HEXT I = = SUBEHD 

25500 SUB Z 1 C Q , W , 3$ , R2 , R3 , MR , ERC , ) ) = = MR 1 =0 

25530 DI SPLflY RTC 9 , 20 )S I ZEC 6 ) = US I HG 3 1 = Q = = DI SPLRY RTC 5 , 2 1 >S I ZEC 6 ) = US I HG 3 1 = W = 

= DISPLAY RTC 11,- 19)81 ZEC3) = S$ == FOR 1 = 1 TO R2 

25540 CRLL COLORC #28-R3*3+ 1 , 9 ) = = DI SPLflY RTC 11 + 1,18 )SIZEC 9 ) = STR$C I )&" . " = = HEXT 
I = = FOR 1 = 1 TO R2-1 == IF ERCR3,I)=-1 THEH DISPLAY RTC 11 + 1,21 )8IZEC6)= " FOUL" = 

= Mfil — 1 = = GOTO 25550 

25545 D I SPLflY RTC 1 1 + 1 , 2 1 )S I ZEC 6 ) = US I HG 3 1 = ERC R3 , 1 ) = = MR=MRXC MR , ERC R3 , 1 ) ) 

25550 HEXT I = = IF MA1=-1 RHD MR=0 THEH DISPLAY RTC 10+R3, 1 1 )SIZEC 6 ) = " FOUL" ELSE 
IF MR THEH DISPLAY RTC 1 0+R3 , 1 1 )S I ZEC 6 ) = US I HG 31= MR 
25560 SUBEHD 

26000 SUB TI = = FOR 1 = 1 TO 1500 = = HEXT I = = SUBEHD 
28010 SUB Z2C M, E, R2, R3 ) = = IF E<0 THEH E=0 

28020 DI SPLflY RTC 1 1 +R2 , 2 1 )S I ZEC 6 ) = US I HG 3 1 = E = = M=MRXC M, E ) = = DI SPLRY RTC 1 0+R3 , 1 1 
)S I ZEC 6 ) = US I HG 3 1 = M = = SUBEHD 


Universal Empire 


für Schneider CPC 464 


Erobern Sie das Universum 


Wir befinden uns auf der geeinten Erde 
des Jahres 3415. 

Seit der Entwicklung der Überlicht- 
raumfahrt hat sich die terranische In- 
dustrie dermaßen explosiv entwickelt, 
daß man nun über modernstes Know- 
How verfugt. Politisch allerdings kann 
man solche Erfolge nicht vorweisen. 
Nach einhundertjährigen diplomati- 
schen Verhandlungen ist es zu keinerlei 
Verständigung zwischen den Welten 
gekommen, die Lage spitzte sich sogar 
in den letzten Jahren immer mehr zu. 
Terra, einer der aufstrebendsten Plane- 
ten des bekannten Universums, wird 
nun von einem Angriff einiger protek- 
tionistischer, alt-dekadenter Planeten 
bedroht. Daher entschied der Terrani- 
sche Föderationsrat, sofort eine schlag- 
kräftige Flotte von 180 Einheiten be- 
reitzustellen. Nach Scheitern aller 
friedlicher Missionen und der erhebli- 
chen Bedrohung von außen gibt man 
einem jungen Offizier der Flotte die 
Chance seines Lebens: Sie sollen ein 
universelles Imperium, das UNIVER- 
SAL EMPIRE, mit der Erde als Zen- 
trum schaffen. Dazu bekommen Sie 
den alleinigen Oberbefehl über die 
Truppe, einen genügenden Etat, 60 000 


Tage Zeit und das Recht, auf allen Pla- 
neten des Imperiums Steuern einzuzie- 
hen. 

Doch ganz so einfach wird die Aufgabe 
nicht. Einige Planeten haben Flotten 
von mehr als lOfacher Größe, andere 
sind Ihnen an Intelligenz und Wissen 
überlegen. Allerdings können Sie hoch- 
entwickelte Welten zum Schiffbau er- 
setzen und auf einigen Welten auch fer- 
tige Schiffe kaufen. Das Geld dafür 
können Sie u. a. auch durch Handel mit 
allen Welten erhalten. Allerdings sind 
Sie auf fremden Welten stets in der 


Gefahr, angegriffen zu werden. Um 
eine noch stolzere Flotte zu erhalten, 
können Sie sich auch in Tiefschlaf ver- 
setzen. Ihr CPC 464 wird zum Monitor 
des Kommandoschiffes. Helfen Sie der 
Erde. 

Gesteuert wird über eine ausgeklügelte 
Menütechnik. Mit den Tasten 0, 1,2,3,., 
wird der Cursor über die Buchstaben 
bewegt bzw. wird die gewünschte Funk- 
tion ausgelöst. Falls Sie einen Joystick 
haben, können Sie Ihn für einige Funk- 
tionen benutzen. 

Viel Vergnügen! 


I INK 2.20: INK 3,6 

^ ENV 2,1, 0,10, 1,-1 0 ,0,1,0,10,1, - 1 1 , 0 
ENV 3, 4, 2, 2, 4, -2, 2, 4, 2, 2, 4, -2,2 
ENT 1,5, 5, 2, 4, -2. 5, 2,3, -2. 5,6, 3, -2. 5, 10 
ENV 1.5,2,3,4,5,3,2,10,3,2,20,3 
•" UNIVERSAL EMPIRE <c:> 1984 toy Marcus* Schneider 

SYMBOL AFTER 64 

8 SYMBOL 65,24,36,66,126,98,98.98,0 

9 SYMBOL 66,124,34,34,60,50,50,124,0 

10 SYMBOL 67,28,34,64,96,96,34,28,0 

II SYMBOL 68,120,36,34,50,50,52,120,0 

12 SYMBOL 69,126,64,64,126,96,96,126,0 

13 SYMBOL 70,126,64,64,126,96,96,96,0 

14 SYMBOL 7 1,28,34,64,110,98,34,28,0 
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15 SYMBOL 72.66,66,66,126,98,98,98,0 

16 SYMBOL 73,28,8,8,12,12,12.30,0 

17 SYMBOL 74,14,4,4,4,4,100,56,0 

18 SYMBOL 75,66,68,72,112.104.100,98,0 

19 SYMBOL 76,64,64,64,96,96,96,126,0 

20 SYMBOL 77,66,102,90,90,98,98.98 
SYMBOL 78,66,98,82,74, 102,98,98 

79,24,36,66,98,98,36.24 
30, 124,66,66, 124,96,96,96 
81,24,36,66.98, 106,36,26 
82.124,66,66,124,104,1 00 , 98 
83 , 60 ,66,64, 60 ,2.98,60 
84,62,8,8,8, 12, 12, 12 


21 


22 SYMBOL 


24 

25 

26 

27 

28 


SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 

SYMBOL 


31 


34 

35 

36 


MODE 


85, 

66 , 

66 , 

66, 

98,98,98 

.60 


86, 

66 , 

66 , 

66, 

52,52,24 

,24 


87, 

66 n 

66, 

66 , 

l ii. XL , 

102, 

66 

88 , 

66 n 

66, 

36, 

24,36,98 

,98 


89, 

34 „ 

34, 

34, 

28. 12, 12 

, 12 


90, 

126 

,2, 

4,2 

14,32,96, 

126 


251 

ü 24 

, 60 

,44 

,36,52,60,24 

iO 

252 

« U f 

0. 1 

12, 


252, 

11: 

PEN 

1s 

INK 

1. 

0: BORDER 

1 : P 

API 

:o) . 

n$< 

20) 

, r < 

20) ,1 < 20) ,d< 

20 


st, h, v, b 


38 DATA " ANDYMQN" , 22. "BETAIGEUZE" , 12, "CAPELLA I",44, "DENEB" , 56, "EF'SAL",22. "FARCH 
OS 1 '. 34, "GAVELON II". 12, "HYAZ INT" , 99, "J0MAR",25, "KINGRION", 13, "LAZAR",3, "PACIS V" 
, 45, "REGNUM" , 56. "SIRIUS" ,9, "TERRA" , 0, "ULAMBATOR"', 23, "VELASQUEZ" ,5, "WEGA" .6. "XANA 
DU", 6, " ZAW" , 45 

39 FOR X»1 TO 20:p <x)»0:e<x)=RND*100+<RND*10) /IO: i <x > =RND#6-1 : r <x ) «RND#3500+10 

40 READ n$ (x ) s READ d <x ) s b <x > -Ol NEXT x 

41 a ( 15) = 1 : e < 15) =40 . 4 : i < 1 5 ) =4 : r < 1 5 ) = 1 80 j b < 1 5 > = 1 : 2 »0 : n = 1 5000 : w-40000 s *■ 1 5 : H-20 : v* 
19:1=1: pa=l : pw=l : t=10000: g=12000: gt=20: p=l : gr=500: an=10: aw=15: vr=450: vn=8: vw=15: 
yy= 1 2 

42 GOTO 46 

43 'Sound (Klinnngggg) 

44 SOUND 1,478,-3,12,3,1 

45 RETURN 

46 CLS: GOSUB 43:G0SUB 47:G0SUB 55:G0SUB 86: GOTO 59 

47 ? Sch i *f i skab i ne 

48 WINDOW #1.2. 16,2,24: WINDOW #2, 18, 39, 2, 14: WINDOW #3, 18, 39, 16, 17: WINDOW #4,18,3 
9. 19. 24: FOR *»1 TO 4: PAPER #*.3: CLS #* : NEXT * 

49 MOVE 262, Ol DRAWR 0. 400, 1 : MOVER 0,-232»DRAWR 376.0: MOVER 0,-48:DRAWR 


-376.0 
22: PRINT 


50 PAPER 3: FOR *«22 TO 36 STEP 2:L.0CATE *,20 : PRINT OHR* <251 ) s : LOCATE * 

D E F G H":: LOCATE 22. 23: PRINT" I J K L M N 0 P": 


52 

53 

54 


' CHR$ (251 > : : NEXT * 

51 LOCATE 22. 21 : PRINT "A B C 
RETURN 

PAPER #1.3: CLS 
PAPER #2.1: CLS 
Ii SRIiiN ©.©«RAR 
: GOSUB 89: NEXT * 

56 FOR *=1 TO 20: PLOT RND#336+288. RND*20B+176. 2: NEXT * 

0, 15: a=RND*304+288;b»RND* 152+192: c=RND*8+16: MOVE a.b:FOR 
c*COS <*>+a. c)KSIN <*)+b.O: MOVE a , b : NEXT * 


#1: RETURN 
#2: RETURN 

IR «2. liCLIttS 


FOR TO S: *«RND#336+288i b«RND#208+176: MOVE a.b 


57 DEG: INK 
TEP 4: DRAW 

58 RETURN 

59 'START 

60 LOCATE #3.1,1: PRINT#3, " ZEIT 
RAUMSCH I FFE " : US I NG " ##### " : R < 1 5 ) 

(S) : PAPER 3 

61 G«INT <G) : IF R<15)»0 THEN 142 

62 IF Z >=60000 THEN 225 

63 W=INT ( W ) :N=I NT < N ) : T=INT <T) 

64 IF P=20 THEN 227 

65 Z»Z+0, 1: LOCATE #4. H-16. V-17: PRINT#4. " 

66 IF JOY (0) =2 OR INKEY < 15) =0 THEN V=V+2 
V-2 ELSE IF JOY <0) »4 OR INKEY ( 14) »0 THEN 
EN h=h+2 
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*=1 TO 360 S 


" : US I NG " ###### . #": Z: LOCATE #3.1,2: PR I NT#‘ 
LOCATE #2 ,1,1: PAPER 1 : PEN #2. 2: PRINT#2. " ' 


N* 


ELSE IF JOY <0) =1 OR INKEY ( 13) =0 THEN V« 
H-H-2 ELSE IF J0Y<0>«8 OR INKEY <5>»0 TH 
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67 I F H<20 TUEN H-20 ELSE IF H>34 THEN H-34 
60 IF V< 19 THEN V-19 ELSE IF V>21 THEN V-21 

69 LOCATE #4. H-16. V-17s PRINT#4, CHR* <252) 

70 IF JOY (0) «16 ÜR INKEY <7)-0 THEN 93 

71 w-w-23 n-n~l : IF 1-1 THEN PAPER 1 ! LOCATE #2. 20. 12s PRINT#2. " GELANDET "ELSE PA 
PER ls LOCATE #2. 20, 12i PRINT#2. " IM ORBIT " 

72 IF w<-0 THEN w-Osr < 15) -r < 15) - < INT <RND#2> +1 > 

73 IF n<-0 THEN n-Oi r ( 15) -r < 15) -1 

74 IF t<0 THEN t-0 

75 IF RND< 0.005 THEN IF b <s>-0 THEN «g-1 

76 IF ag-1 THEN PAPER 3s LOCATE #1 . 1 . 22s PRINT#! . " LOCATE #1.2. 22s 

F'RINT#1, "ANGRIFF VON" i PRINT #1." "N* (8) s R < 1 5) -R < 1 5 ) - 1 NT < RND*2# I <S ) /2> t SOUND 2.60 

0ii 1 2 , /s 

77 * IF r ( 15) <0 THEN r<15>»0 

78 v»« 2"'2 2 s FOR >■( — 1 TO 20s j (x ) -j (x ) +ys NEXTs zz=z s y-Os IF j(s)<10 THEN 59 

79 IF k ( b ) -0 THEN 59 

80 GOSUB 53 

81 r r — k < s) s y— I NT < j ( ») / 10) s j < b ) » j < $ ) -y # 1 Os I F y >— j k ( s ) THEN y — j k ( s) s j < s) *»0 s j k < s ) — 0 
s k ( e ) “0 

82 jk <s) »INT < jk <s> -y) 

83 LOCATE #1.2. 2 s PAPER 3 s PEN 1 sPRINT#!." NEUBAUTEN" s PR INT#1 s PR INT#1 . "NEUE SCH 
IFFE" s PRINT#1 , " VON"sPEN 2sPRINT#l.N*<8> sPRINT#l." " INT ( Y*RR) " STUECK"sPEN lsG 
OSUB 43s FOR X-l TO 4000s NEXTs R < 15) «INT <R < 15) +Y*RR) s GOSUB 86s GOTO 59 

84 GOTO 59 

85 ’mtnui 

86 GOSUB 53s PR I NT# 1. " -COMMANDS-" s PRINT# 1 . ""sPRINT#l. " A-AUFT ANKEN" s PR INT# 1 . "B-AN 
TR I EBSCHECK " s PR I NT# 1 . "C-WAFFENCHECK " s PR I NT# 1 . " D--WERFT-BER I CHT " s PR I NT# 1 . "E-E I NKAU 
FEN" s PR I NT# 1 . "F-FLOTTENBAU" s PRINT#1 . "G-AUFGEBEN" s PRINT#1 . "H- VERKAUFEN" 

87 PR INT# 1 , " I - 1 NVENTAR " s PR I NT# 1 . " J-EMP I REGROESSE 11 : PR I NT# 1 . "K-KAELTESCHLAF " s PR I NT 
#1 . "L-LANDEN/STEUER" s PRINT#! . "M-STARTEN" s PRINT#1 . "N-NAVIGATION" s PRINT#1 . "O-ANGRI 
FF" s PRINT#1 . "P-PLANETENCHECK" s RETURN 

88 END 

89 DRAWR RND*4~2, RND#4-2. 2s DRAWR RND#4-2. RND*4~2s DRAWR RND#4-2. RND*4~2s DRAWR RND 
*4-2. RND#4-2s DRAWR RND*4-2. RND*4-2s DRAWR RND*4-2. RND*4-2s RETURN 

90 ENV 2. 4, 2. 2, 4, -2, 2, 4, 2, 2, 4, -2, 2 

91 SOUND 1.478,-5, 12,3 

92 LOCATE 1.1 sPRINT INKEY ( 14) s GOTO 92 

93 'Zuordnung 

94 IF v-19 THEN ON <h-18>/2 GOTO 96.102.108,129.121,114,138.145 

95 IF y-21 THEN ON (h-18>/2 GOTO 153.156.163,170.175,178.196.211 

96 'TANKEN 

97 IF AG» 1 THEN GOSUB 53s LOCATE #1.2, 2s PAPER 3s PEN 1 s PRINT# 1 . "TANKEN" s PRINT#! ." " 
sPRINT#! . "UNSERE SCHIF-" s PRINT# 1 . "FE WERDEN AN-" s PR INT# 1 . "GEGRIFFEN. .." s GOSUB 43 
s FOR X-l TO 2000s NEXTs GOSUB 86s GOTO 59 

98 IF L-0 THEN GOSUB 53 s LOCATE #1,2. 2 s PAPER 3 s PEN 1 s PR INT# 1 . "TANKEN" s PRINT#! 

PRINT#!. "WIR MLJESSEN " s PR I NT# 1 . " ERST LANDEN. .." s GOSUB 43sF0R X-l TO 2000s NEXTs GOS 
UB 86 s GOTO 59 

99 GOSUB 53s LOCATE #1.2, 2s PAPER 3s PEN 1 s PRINT#! . "TANKEN" s PRINT#! s PRINT#! , "KAP 
I TAL " s G s PR I NT# 1 , " SOLAR" s PRINT#! , "TANK" s Ts "T" s PRINT# 1 , N$ <S> sPRINT#!. "WILL VON UN 
S" s PRINT#! . GTs "SOLAR/ 100T" s PRINT#! . "WIEVIEL < 100T) ?" 

100 LOCATE #1 , 2. 20s INPUT ttl.XsIF X*GT>G THEN 100 

101 PRINT#!. "IN ORDNUNG" s G»G-GT*X s T -T + X* 100 s GOSUB 43 s FOR X-l TO 1500s NEXTs GOSUB 
86 s GOTO 59 

102 'ANTRIEB 

103 Y-INT (3/PA) +1 s IF PA-1 THEN Y-0 

104 GOSUB 53s LOCATE #1.2, 2s PAPER 3s PEN 1 s PR INT#1 . "ANTRIEB CHECK" s PRINT# 1 ."" s PR IN 
T# 1 . "ZUSTAND " PA* 1 00 " 7. " s PR I NT# 1 . " " s PR I NT# 1 . " REPERATURDAUER " s PR I NT# 1 . Y " TAGE " s PR I NT 
#1. ""SPRINT#!. "J>A ODER N> EIN" 

105 LOCATE #1.2, llsPRINT#!, " " s LOCATE #1 . 2, 1 1 s INPUT #1.1*3 IF 1*0" J" AND 

I*< >"N" THEN 105 

106 IF I*»"J" THEN Z-Z+YsPA-1 

107 PR I NT# 1 PRINT#!. "ALLES KLAR !" s GOSUB 43s FOR X-l TO 1500s NEXTs GOSUB 86s GOTO 

59 

108 'WAFFEN 

109 Y-INT < 3 / PW > +1 s IF PW-1 THEN Y-0 
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HO GOSUB 53s LOCATE #1.1. lsPRINT#l. " WAFFEN-CHECK " s PR I NT# 1 . "" s PRINT#1 . "ZUSTAND"PW 
* 1 00 " '/. " s PR I NT# 1 . " " s PR I NT# 1 . " REPERATUR ZE I T " s PR I NT# 1 . V " T AGE 11 s PR I NT# 1 . " " s PR I NT # 1 , " 

" i PRINT#! , "RiPERATUR-J/N ?" 

111 LOCATE #1.2, 11 .PRINTttl, " ".LOCATE #1 . 2. 1 1 . INPUT #1. I*s IF I*<>"J 

" AND 1*0 "N" THEN 111 

112 IF I*-"J" THEN Z-Z+Y s PW“ 1 

113 F'RINT#1 "ALLES KLAR ! " s GOSUB 43.F0R X-l TO 1500: NEXT: GOSUB 86s GOT 

0 59 

114 'FLOTTENBAU 

115 GOSUB 53s LOCATE #1 . 1 , 1 s PRINT#1 , "SCHIFFBAU" s IF L-0 THEN PRINT#! s PRINT#! . "S 
IE MUESSEN" . PRINT#1 . "ERST LANDEN . " i GOSUB 43s FOR X-l TO 1500s NEXTs GOSUB 86s GOTO 5 
9 

116 IF B(S)«0 THEN PRINT#! s PRINT#1 . N* <S> s PRINTttl IST KEIN" s PRINT#! IMPERIUM 
SPLANET ! " s GOSUB 43s FOR X-l TO 1500s NEXTs GOSUB 86t GOTO 59 

3 17 Y=INT (E <S> / 1 0 > s PRINT#! N* <S) : PRINTttl . "KANN IN 10 T. " s PRINTttl . "BIS 

ZU "Ys PRINTttl, "SCHIFFE BAUEN" s PRINTttl . " 1SCHIFF KOSTET" s PRINTttl . YY" SOLAR" sLOCAT 
E #1.2, lOsF'RINT #1 . "SCHIFFE/ZEIT" s LOCATE #1 , 2, 18s PRINTttl . "GELD "G" SOLAR" 

118 LOCATE #1 . 2. 15: PRINTttl , " " s LOCATE# 1 ,2, 14s X-Ot INF'UT #1.X:X»INT< 

ABS (X) ) s IF X >Y THEN 118 ELSE K <S> =X : J <S> -0 

119 LOCATE ttl , 2. 16s PRINTttl , " " s LOCATE ttl , 2. 16s X-0: INPUT #1.X:X-INT 

<ABS<X>>sIF X >50 OR X#K <S) #YY>G THEN 119 ELSE JK <S> “X s G“G--X#K <S) *YY 

120 LOCATE ttl , 2, 17s PRINTttl , "AYE AYE. SIR !" s GOSUB 43s FOR X-l TO 1500s NEXTs GOSUB 86 
s GOTO 59 

121 'BASAR 

122 IF AG“ 1 THEN GOSUB 53s LOCATE #1 . 1 , 1 s PRINTttl . "EINKAUF" s PRINTttl ."" s PEN 3 SPRINT 
ttl. "ANGRIFF ! ! ! " s PEN 1 s GOSUB 43 s FOR X-l TO 2000s NEXTs GOSUB 86.G0T0 59 

123 GOSUB 53s LOCATE ttl . 1 , 1 s PRINTttl . "EINKAUF" s IF L-0 THEN PRINTttl s PRINTttl . "ERS 
T LANDEN, "s PRINTttl. "'SIR' ... " s GOSUB 43 s FOR X-l TO 2000 s NEXTs GOSUB 86 s GOTO 59 

124 PRINTttl. ""s PRINTttl, "WIEVIEL KAUFEN" s PRINTttl , "VON "N*<S> s PRINTttl. "".PRINTttl, " 
NHRG. "GN"S/100T": PRINTttl, "WASS. "GW"S/100T"s IF I (S> >1 AND 8015 THEN PRINTttl . "SCH 

1 ppjr •• ßp ii 0 a H 

125 LOCATE ttl , 1 , 20s PRINTttl , "GELD"G"SOLAR" s Y-Os LOCATE ttl , 1 , 14s PRINTttl . " 

"s LOCATE ttl , 1 . 14s INPUT ttl.YsIF Y*GN>G THEN 125 ELSE G“G-Y#GNs N-N+Y# 100 

126 LOCATE ttl , 1 , 20s PRINTttl GELD" 6 " SOLAR " s Y“Os LOCATE ttl , 1 , 15s PRINTttl , " 

"s LOCATE #1 , 1 , 15s INF'UT ttl.YsIF Y*GW>G THEN 126 ELSE G-G-Y#GW: W-W+Y# 100 

127 LOCATE ttl , 1 , 20s PRINTttl , "GELD"G" SOLAR" s Y»0: IF KSK2 OR S»15 THEN 128 ELSE LO 

CATE #1 , 1 , 16s PRINTttl , " " s LOCATE ttl , 1 , 16s INPUT ttl.YsIF Y*GR>G THEN 127 

ELSE R< 15) -R< 15) +YsG»G-GR*Ys LOCATE ttl. 1 , 20s PRINTttl , "GELD"G"SOLAR" 

128 LOCATE ttl , 1 , 17s PRINTttl , "NA GUT. .." s GOSUB 43s FOR X“1 TO 1 500s NEXT s GOSUB 86: GO 
TO 59 

£■79 ? WERFT 

130 hh“Os GOSUB 53i LOCATE ttl . 1 , 1 s PRINTttl , "WERFTBERICHT" s FOR X-l TO SOOsNEXT 
’ 131 FOR X-l TO 20 s IF B(X>»0 OR K<X)-0 THEN 135 

132 HH-HH+1 

133 GOSUB 53s LOCATE ttl . 1 , 1 s PRINTttl , "WERFTBERICHT" s PRINTttl , " " s PRINTttl , "PRODUKTION 

VON" s PRINTttl , N$ (X) s PRINTttl, PRINTttl , K < X) s "SCHIFFE" s PRINTttl . "PRO 10 TAGE" s PR IN 

Tttl s PRINTttl , INT (JK (X) *10- (J IX) /10> *10) "TAGE NOCH"sGOSUB 43sF0R Y-l TO ISOOsNE 
XT 

134 IF INKEY (7) 0-1 THEN GOSUB 86s GOTO 59 

135 NEXT 

136 IF HH-0 THEN PRINTttl. PRINTttl . "KEINE ""PRODUKTION" 

137 GOSUB 43: FOR X-l TO 2500s NEXTs GOSUB 86s GOTO 59 

138 'AUFGEBEN 

139 GOSUB 53s LOCATE ttl . 1 , 1 s PRINTttl , "SELBST" s PRINTttl . " ZERSTOERUNG" s PRINTttl . " " s PRI 
NTttl . "TATSAECHLICH"! PRINTttl, " J/N?" 

140 LOCATE ttl. 1,6s PRINTttl, " " s LOCATE ttl, 1,6s INPUT #1,I*:IF I*0"N" AND I*< 

>"J" THEN 140 

141 IF I*»"J" THEN 142 ELSE PRINTttl , "SO, SO !" s GOSUB 43s FOR X-l TO 1500s NEXTs GOSU 
B 86 s GOTO 59 

142 INK 2,0,26s INK 3, 0,26s GOSUB 43s GOSUB 43s FOR Y-l TO 7s FOR X-l TD 100s NEXTs NEX 
Ts SOUND 1,200,-2,7,2,0, 15s FOR X-l TO 8000t NEXTs INK 2. 26s PEN 2s PAPER 1 1 CLS 

143 G-G+R (15) *50+F'*B000+T+N+Wt PRINT"VERMOEGEN "sGs" SOLAR VON 130 000 SOLAR" 

144 IF INKEY <7>— 1 THEN 144 ELSE RUN 

145 'VERKAUF 

146 IF AG- 1 THEN GOSUB 53: LOCATE #1 . 1 , 1 s PRINTttl , "VERKAUF" s PRINTttl s PRINTttl . "AN 
GRIFF ! ! ! " : GOSUB 43s FOR X-l TO 2000s NEXTs GOSUB 86sG0T0 59 
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147 GOSUB 53: LOCATE #1 . 1 , 1 : PRINT#1 , "VERKAUF" : IF 1=0 THEN PRINT#1, PRINT# 1, "IM 

ORBIT ! " : GOSUB 43:F0R X=1 TQ 2000: NEXT: GGSUB 86: GOTO 59 

1. 48 m l NT# 1 NT# 1 NT# i , " Wl BV IIL VIRK . " i PR I NT# 1 . AN " N* < 8 > i PR I NT# 1 

FRINT#1, "NHRG. " VN"S/ 100T" : PRINT#1 , "WASS. "VW"S/100T": IF I <S> >1 AND SOIS THEN PRI 
NT#1 , "SCHIFFE"VR"S. " 

149 Y-0: LOCATE #1 , 1 , 20: PRINT#! , "GELD" G" SOLAR" : LOCATE #1 , 1 , 1 1 : PRINT#1 , " 

: LOCATE #1 , 1 , 1 1 : INPUT #1,Y:IF Y>N THEN 149 ELSE N=N-Y* 100: G=G+VN#Y 

150 Y-0: LOCATE #1 , 1 , 20: PRI NT#1 , "GELD" G" SOLAR" : LOCATE #1 , 1 , 13: PRINT#1 , " - 

: LOCATE #1 , 1 , 13: INF'UT #1.Y:IF Y>W THEN 150 ELSE W=W~Y* 100: G=G+VW*Y 

151 Y-0: LOCATE # 1 , 1 , 20 : F'R I NT# 1 , " GELD " G " SOLAR " : I F 1(8X2 OR S-15 THEN 152 ELSE LO 

CATE #1 , 1 , 15: PRINTttl , " ": LOCATE #1 , 1 . 15: INPUT #1.Y:IF Y>R<15) THEN 151 E 

LSE R < 15) =R ( 15) -Y: G-G+VR*Y: LOCATE #1.1, 20: PRINT#! , "GELD "G" SOLAR" 

152 LOCATE #1 , 1 , 17: F'RINTttl , "OK. BOSS" : GOSUB 43:F0R X=1 TO 1500: NEXT: GOSUB 86: GOTO 
59 

153 ’ INVENTAR 

154 GOSUB 53 : LOCATE # 1 . 1 , 1 : PR I NT# 1 , " I NVENT AR " : PR I NT# 1 , " " : PR I NT# 1 , " GELD " G " SOLAR " : 
PRINT#1 , " PLANETEN "P: PR INT# 1 , "ZEIT" INT ( 60000- Z) "TAGE" : PRINTttl . "NAHRUNG "N"T" : PRINT 
#1 , " WASSER" W"T" : PRI NT# 1 , "TANK"T"T" 

155 IF INKEY (7) 0-1 THEN GOSUB 86: GOTO 59 ELSE 155 

156 ’ STERNUEBERSICHT 

157 GOSUB 53: LOCATE #1 , 1 , 1 : PRINT#! , "STERNKARTE" : PRI NT# 1 , " " : PRI NT# 1 . "LJ. E. PLANETEN 
":FOR X-l TO 20: IF B(X>«1 THEN PRINT#1 . N* <X> 

158 NEXT: GOSUB 43 

159 IF INKEY <7)=- 1 THEN 159 

160 GOSUB 53: LOCATE #1 . 1 , 1 : PRINT# 1 , "STERNKARTE" : PRINTttl PRINT#1 . "AUTARKE WELT 
EN" : FOR X-l TO 20: IF B<X)=0 THEN PRINTttl , N* <X) 

161 NEXT: GOSUB 43 

162 IF INKEY <7>— 1 THEN 162 ELSE GOSUB 86: GOTO 59 

163 ’KAELTESCHLAF 

164 GOSUB 53: LOCATE #1 , 1 , 1 : PR INT#1 , "KAELTESCHLAF" : PRINT#1 PRINTttl , "WIEVIELE T 
AGE" 

165 LOCATE #1 . 1 , 5: PRINT#1 , " ": LOCATE #1 , 1 , 5: X=0: INPUT #1.X:IF X>100 T 

HEN 165 

166 IF X=0 THEN 169 

167 FOR Y=1 TO X* 10: SOUND 2,1,5,12,3 

168 Z-Z+O. 1: LOCATE #3, 3, 1 : PRINT#3, "ZEIT " ; USING"######. #" : Z : NEXT 

169 GOSUB 86: GOTO 59 

170 ’ LANDEN 

171 IF L-0 THEN T=T- 100: SOUND 1 , 200, 200, 7, 0, 0, 1 : SOUND 1 , 400, 100, 7, 0, 0, 1 : SOUND 1, 
800, 50, 7, 0, 0, 1 : GOSUB 53: FOR Y=1 TO 5: LOCATE #1 , 1 , 20: PRIIMTttl , "LANDUNG" : FOR X = 1 TO 

500: NEXT: LOCATE #1 , 1 , 20: PRINT#1 , " " : FOR X»1 TO 500: NEXT: NEXT: L-l 

172 E(S)=INT (E <S) ) : I (S) -INT (I <S) ) 

173 GOSUB 53: IF ST-0 THEN IF B(S)=1 THEN ST-1: LOCATE #1 , 1,21: PRI NT# 1 , " STEUERN "E ( 
S) *10*1 (S) "SOLAR" : G=G+E (S) #10*1 <S) : GOSUB 43: FOR X=1 TO 2000: NEXT 

174 GOSUB 86: GOTO 59 

175 ’ STARTEN 

176 GOSUB 53: IF L-l THEN T-T-100: SOUND 1 , 800, 50, 7, 0, 0, 1 : SOUND 1,400,100,7,0,0,1: 

SOUND 1,200, 200,7,0,0, 1: FOR Y«1 TO 5: LOCATE #1,1, 20: PRINT#1 , "START" : FOR ' X-l TO 4 
00: NEXT: LOCATE #1 , 1 , 20: PRINTttl , " " : FOR X-l TO 400: NEXT: NEXT: L-0 

177 GOSUB 86: GOTO 59 

178 ’ NAVIGATION 

179 GOSUB 53: IF L-l THEN LOCATE #1 , 1 , 1 : PRINT#1 , "NAVIGATION" : PR INT#1 PRI NT# 1 , " 
NUR IM ORBIT. FOR X-l TO 2000: NEXT: GOSUB 86:G0T0 59 

180 LOCATE #1, 1, 1:PRINT#1, "NAVIGATION": LOCATE #1,1, 3: FOR X-l TO 20:PRINT#1 ,CHR*< 
X+64) "-"N* (X) : NEXT 

181 F‘R I NT# 1 , " i -KE INE N. ! " 

182 I*«"" 

183 I *» INKEY*: IF I*=""THEN 183 

184 IF LEN (1$) >1 OR ASC<I«><64 OR ASC(I$)>84 THEN I$="":GOTO 183 

185 IF ASC (1$) -64 THEN GOSUB 86: GOTO 59 

186 Y-ASC ( I $ ) -64 : I F Y-S THEN GOSUB 86: GOTO 59 

187 E (S) -E <S> + <RND*4> -2:PP-S 

188 AG-O: T-T-ABS <D <S> ~D <Y) ) #10: Z-Z + INT < ABS <D (S) -D < Y) ) /PA) +1 : N-N-INT < ABS <D <S> -D <Y 
) > #RND#20) : W-W-INT <RNDÜt400) : IF TCO THEN T-0: GOSUB 86: LOCATE #1 , 1,21: PRINT#1 , "KEI 
N" : PRINT#1 , "TREIBSTOFF" : GOSUB 43: FOR X-l TO 3000: NEXT: GOSUB 53: GOTO 59 
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109 GOSUB 54: S-Y: GOSUB 43:G0SUB 43: FÜR Y-l TO 5: LOCATE #1,1, S+2: PRINTttl , " : LOCA 

TE #2,2, 1:PRINT#2, "HYPERSF'RUNG" : FOR X = i TO 400: NEXT: LOCATE #1 , 1 , S+2: PRINT#1 , " " 

: LOCATE #2, 2, 1 : F'RINT#2, " 


11 r FOR X-l TO 400: NEXT: NEXT 


i LOCATE #1 , 1 . 7i PRIN 


190 YY» INT (RND* (200/ < I <S) + 1 ) ) +5) : GR=INT <RND*500+300) : GN=INT <RND*20+2) : GW-INT (RND 
*30+7) : VR=GR-50:VN»GN-2:VW«GW-5: SOUND 1 , 200, -ABS (D (S) -D (PP) ) , 10, 1 : ST-O: Q (S) »1 : GT 
»INT (RND* 100+30-1 <S) *5) 

191 PAPER 1: LOCATE #2. 20, 12: PRINT#2, " IM HYPERRAUM" 

192 ORIG IN 273, 177: INK 0 ,0:1 NK 2,0: MOVER 0O,40:DRAWR 0, 1 12, 0: MOVER 16,-8:DRAWR 0 
, -96, 2i MOVER 16, 01 DRAWR 0,00,0: MOVER 16, -8: DRAWR 0, -64, 2: MOVER 16,0:DRAWR 0,40,0 
: MOVER 16, -S: DRAWR 0,-32, 2 

193 MOVER 32, 32: DRAWR 0, -32, 2: MOVER 16, -0: DRAWR 0,40,0: MOVER 16,0: DRAWR 0,-64, 2:. 
MOVER 16,-8: DRAWR 0,80,0: MOVER 16, 8: DRAWR 0, -96, 2: MOVER 16, -8: DRAWR 0, 1 12. 0: MOVE 
R 80 ,48 

194 INK 0,0,2: INK 2, 2,0: FOR Q»1 TO ABS (D (S) -D (PP) > *100: LOCATE #1 , 1 , 1 :: NEXT: INK 0 

iP. T Mk’ 9 9<“) ■ PAaaPAfcO - 95 

195* FOR X-l’ TO 500: NEXT: GOSUB 55: GOSUB 86: GOTO 59 

196 'ANGRIFF 

197 R (S) »INT <R (S) ): GOSUB 53: LOCATE #1 , 1 , 1 : PRINTttl , "ANGRIFF" : IF B(S)»1 THEN LOCAT 
E #1, 1, 3: PRINTttl, "ANGRIFF-STOP ! ": PRINTttl , "PLANET DES" : PRINTttl ," IMPERIUMS" : GOSUB 

43: FOR X»1 TO 2000: NEXT : GOSUB 86: GOTO 59 

198 LOCATE ttl , 1 , 4: PRINTttl ," IMP. SCHIFFE" : PRINTttl , R < 15) " 

Tttl, "FEIND-SCHIFFE": PR INTttl,R(S) " 

199 IF R( 15)00 THEN 209 

200 IF R(S)O0 THEN 210 

201 R ( 15) »INT (R ( 15) - (RND* 10 /PW) ) 

202 R (S) «R (S) -INT (RND* <170/ ( I < S) rt 2+l > ) ) 

203 IF R ( 1 5 > < 0 THEN R ( 15) »0 

204 IF R ( S ) < 0 THEN R(S)»0 

205 IF INKEY <7)<>.~1 THEN IF L»0 THEN LOCATE ttl , 1 , 20: PRINTttl , "RUECKZUG" : FOR X»1 
TO 1000: NEXT: R <S> »R <S> +INT (RND* 150) : GOTO 207 

206 GOTO 198 

207 Y=INT (RND* 19) +1 : IF Y»S THEN 207 

208 S»Y: GOSUB 54: GOTO 190 

209 GOTO 142 

210 P-P+l: LOCATE ttl , 1 , 20: PRINTttl , "VICTORY" : PRINTttl , " VICTORY 
W*0. 9: GOSUB 43: FOR X»1 TO 1500: NEXT: GOSUB 86: GOTO 59 

211 ’ PLANETENPRUEF 

212 GOSUB 53: LOCATE ttl , 1 , 1 : PRINTttl , "PLANETENCHECK" : LOCATE ttl, 1,3: FÜR X-l 
RINTttl , CHR* (X+64) " "N*(X) : NEXT : I*«"" 

213 PRINTttl, "i -ENDE" 

214 I*-INKEY*:IF I*»"" THEN 214 
IF I*«"l" THEN GOSUB 86: GOTO 59 
IF ASC ( 1$) <64 OR ASC (I*) >84 THEN 214 
Y«ASC(I*>-64 

IF Q(Y)»1 THEN 219 ELSE GOSUB 53: LOCATE ttl 
PRINTttl, "-KEINE DATEN-" : GOSUB 43: FOR X-l 
R(Y)»INT (R(Y) > :E(Y)»INT (E(Y) ) :D(Y)»INT (D(Y) ) : I <Y)»INT (I (Y) ) 

GOSUB 53 : LOCATE tt 1 , 1 , 1 : PR I NT# 1 , " PLANETENCHECK " : PR I NT# 1 , " " : PR I NTtt 1 , " " : PR I NT# 1 
,N*(Y> : PRINTttl, PRINTttl, "EINWOHNER"E <Y) : PRINTttl, " FLOTTE "R < Y) : PRINTttl. "ENTF.TER 
RA"D (Y) : PRINTttl, " INTELLIGENZ " I <Y> : PRINTttl, "ENTF.P08. "ABS (D < Y) -D (S> ) 

221 IF B <Y) »1 THEN PRINTttl , "UNIVERSAL" : PRINTttl , "EMPIRE" 

IF B < Y> «0 THEN LOCATE ttl , 1 , 15: PRINTttl , "AUTARK" 

GOSUB 43 

IF INKEY (7) — 1 THEN 224 ELSE 211 
■££* ' ALTERSTOT 

226 CLS: PR INT "LEI DER SIND SIE MIT" Z "JAHREN ": PR INT "GESTORBEN, SODASS SIE IHRE AUF 

GABE NICHT VOLLENDEN KONNTEN. NACH IHREM TOT ZERFAELLT DAS REICH. END 

227 CLS : PR I NT " GRATULAT I ON-S I E HABEN GEWONNEN !!!": PRINT: PRINT "SIE HABEN DAS BEKA 
NNTE UNIVERSUM ZU 


B (S) =1 : PW»P 


TO 20: P 


215 

216 
217 
210 
ttl . 

219 

220 


4w »i«* 

223 

224 


,1,1: PRINTttl . "PLANETENCHECK 1 
TO 1600: NEXT: GOTO 211 


: PRINT 


ICHES FOLGENDES 

228 PR INT "SOLAR" 

229 IF INKEY (7)0- 

230 MODE 0 

231 PAPER 1: LOCATE 


EINEM REICH GEEINT. ALS LOHN ZAHLEN IHNENDIE VOELKER DES RE 
GELD: " : PRINT: PRINT G*R (15) *50+P*8000+T+N+W 


1 THEN 230 ELSE 229 

2 , 10: PR I NT " GLUECKWUNSCH " : PEN 2: INK 2, 3, 4: GOTO 231 
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für den ZX-Spectrum 48 K 


Mit diesem Programm für den 48K-Spectrum kann parallel zu einem 
gleichzeitig ablaufenden anderen Programm eine Echtzeituhr auf den 

Bildschirm ausgegeben werden. 


Die Anwendungsmöglichkeiten sind 
universell, sowohl in Spiel- wie in An- 
wendungsprogrammen. Genannt seien 
nur Adventurespiele unter echtem Zeit- 
druck oder Programme, bei denen eine 
genaue Zeitinformation nötig ist. 

Durch Verändern des Interruptmodus 
des Spectrums erfolgt fünfzigmal pro 
Sekunde ein Sprung in das Maschinen- 
spracheprogramm, das diese Uhr 
steuert. Nur Operationen wie SAVE 
oder LOAD und BEEP sperren kurzfri- 
stig den Interrupt und bewirken so eine 
Ungenauigkeit der Uhr. 

Das Programm läuft übrigens nicht mit 
angeschlossenem Sinclair-Drucker. 

Geben Sie Listing 1 ein und starten Sie 
es mit RUN. Das Programm zeigt Ih- 
nen Fehler in den DATA-Zeilen an. Ist 
alles korrekt, dann wird der Maschi- 
nencode als “Clock“CODE 65100,171 
geSAVEt. Er kann später wieder mit 
CLEAR 65099: LOAD““CODE gela- 
den werden. Die Uhr wird mit RAN- 
DOMIZE USR 651 10 angeschaltet und 
steht anfänglich auf 0 Uhr. Sie kann 
gestellt werden, indem die gewünschten 
Zeiten an folgende Stellen gePOKEt 
werden: 

65122: Sekunden; 

65123: Minuten und 

65124: Stunden. 

Aus diesen Speicherplätzen kann natür- 
lich auch innerhalb eines Programms 
die Uhrzeit mittels PEEK abgefragt 
werden. 

Wem die Uhr in Zeile 23 nicht paßt, 
kann sie auch an eine andere Stelle 
Bildschirms setzen, indem er 65174 
und 65175 entsprechend ändert. 

Ein Beispiel für links oben (Adresse = 
16384): POKE 65174, 16383-256 INT 
(16383/256): 

POKE 65175, INT( 16383/256). 
Abgeschaltet wird die Uhr wieder mit 
RANDOMIZE USR 65100. 


********************** 


4 . 

5 

5 

7 

8 
9 

10 

110 


CLOCK 

von 

Rainer Fuchs 
schwär z bürgst r . 
6000 Frankfurt 
069/55 30 51 


49 

1 


* 

* 

* 

* 

* 

* 

* 


REM 
REM * 

REM * 

REM * 

REM * 

REM * 

REM * 

REM * 

REM * * 

REM ********************** 
DRTfi "3e3 f e d47ed 56 C 9000000a 
f 3S6 1 f e 3e 09 " , 1604 
120 DRTR "ed47ed5e C 900000000b f 5 
00000 f f f5c5" , 1808 
130 DRTR "d5e5f 32161 fe347e f «322 
Olda f 772334" , 1993 
140 DRTR "7efe3c2014af7723347ef 
e3c200ba f 77“ , 1650 
150 DRTR "23347a felS2002a f7711b 
f 50ed5365 f e " , 1782 
160 DRTR "3a64 f e cd be f e060a cd cd f 
e3a63fecdbe" ,2547 
170 DRTR " fe060acdcd fe3a62fecdb 
e fealdlclf 1" ,2361 
180 DRTR " f bc90e f 6Cd C5f «0« f f060 
0810438 fC99" ,2237 
190 DRTR " 05 f 578C 630 CdC 1 f e 2165 f 
e 342a 65 f e Cd " , 2342 
200 DRTR "ee fea f f Ic9ed4b365c260 
06 f 29292909 " , 1848 
210 DRTR "e bC906081a 772413 10 f a C 
9" , 1117 

1000 CLERR 65099 

1010 LET f »65 100 

1020 FOR Z b 1 TO 11: LET Cb0 

1030 RERD a$ 

1040 FOR S =1 TO LEN a$ STEP 2 
1050 LET hsCODE LET l *COD 

E a $ ( S + 1 ) 

1060 IF h >96 THEN LET h »h -39 
1070 IF l >96 THEN LET l * l -39 
1080 LET hah-48: LET 1=1-48 
1090 POKE f ,h*16+l 
1100 LET C = C + PEEK f: LET f*f+l 
1110 NEXT S 

1120 RERD SUffi : IF SUfftOC THEN PR 
INT "Fehler in DflTR-Zeile ";z*l0 
+100: STOP 

1130 NEXT Z: PRINT "CODE ük" 

1140 SRUE "Clock "CODE 65100,171 
1145 REM SRUE * " fft " ; 1 ; " C l O C k " CODE 
65100, 171 
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Assemblerlisting zu Clock 


64' by R. Fuchs' 


mode normal" 
FE4C 

FE4C 3E3F 
FE4E ED47 
FE50 ED56 
FE52 C9 
0003 


FE 

FE 


0 

!0 

6030 

0040 

f 

0050 

0060 


FE61 


0002 


e rhoehen" 
FE7B 34 
FE7C 7E 
FE7D FE3C 
FE7F 2014 
FES1 AF 


0070 

0060 

6090 

0100 

0110 

0120 

0130 


ÜRS 

LD 

LD 

IM1 

RET 

DEFS 


"CLOCK." 
"CO 6/12/ 

"Interrupt 

65100 

A,63 

I,A 

3 

"Interrupt 


AF 

0140 

XOR A 

3261 FE 

©150 

LD ( FUENF ),A 

3EÖ9 

0160 

LD A, 9 

ED47 

0170 

LD I , A 

ED5E 

0180 

IM2 

09 

0190 

RET 

00 

0200 FUENF 

DEFB 0 

00 

0210 SEC 

DEFB 0 

00 

0220 MIN 

DEFB 0 

00 

0230 STD 

DEFB 0 

BF50 

0240 SCN 

DEFkl 20671 


0250 

DEFS 2 

FF 

0260 START 

RST 56 

F5 

0270 

PUSH AF 

05 

028© 

PUSH BC 

D5 

0290 

PUSH DE 

E5 

0300 

PUSH HL 

F3 

0310 

DI 

2161FE 

0320 

LD HL, FUENF 

34 

0330 

INC (HL) 

7E 

0340 

LD A, (HL) 

FE32 

0350 

CP 50 

201D 

0360 

JR NZ, DISPL 

AF 

0370 

XOR A 

77 

0380 

LD (HL) , A 

23 

0390 

INC HL 


0400 ; 

"Sekunden 


0410 

0420 

0430 

0440 

0450 

0460 


INC 

LD 

CP 

JR 

XOR 

LD 


(HL) 

A, CHL) 

60 

NZ, DISPL 
A 

CHL) * A 


FE83 23 

0470 

INC 

HL 


0480 ; 


"Minuten 

rhoehen" 




FE84 34 

0490 

INC 

(HL) 

FE85 7E 

0500 

LD 

A, (HL) 

FE86 FE3C 

0510 

CP 

60 

FE88 200B 

0520 

JR 

NZ, DISPL 

FE8A AF 

0530 

XOR 

A 

FE8B 77 

0540 

LD 

(HL) , A 

FE8C 23 

0550 

INC 

HL 


0560 ; 


"Stunden 

rhoehen" 




FE8D 34 

0570 

INC 

(HL) 

FE8E 7E 

0580 

LD 

A, (HL) 

FE8F FEI 8 

0590 

CP 

24 

FE91 2002 

0600 

JR 

NZ, DISPL 

FE93 AF 

0610 

XOR 

A 

FE94 77 

0620 

LD 

(HL) , A 


0640 

Uf TU" 

0650 

0660 

N wiederhers teilen' 
FE95 11BF50 0670 

FE98 ED5365FE 0660 
0690 

nzeigen" 


DISPL LD 
LD 


"Anzeige a 


-Zeiger SC 

DE .20671 
ISCN) .-DE 
"Stunden a 


FE9C 3A64FE 
FE9F CDBEFE 


en" 

FEA2 060A 0730 

FEA4 CDCDFE 0740 

0750 

nzeigen" 

FEA7 3A63FE 0760 

FEAA CDBEFE 0770 

0780 
en" 

FEAD 060A 0790 

FEAF CDCDFE 0800 

0810 

anzeigen" 

FEB2 3A62FE 0820 

FEB5 CDBEFE 0830 

0840 

om Interrupt" 

FEB8 El ©850 

FEB9 Dl 0860 

FEBA CI ©870 

FEBB Fl 0880 

FEBC FB 0890 

FEBD C9 0900 

0910 

g ioer-s teile" 

FEBE 0EF6 ©92Q 

FEC0 CDC5FE ©930 

©940 

g ier-S teile" 

FEC3 0EFF 0950 
FEC5 0600 0960 

FEC7 81 0970 

FEC8 04 0980 

FEC9 38FC ©990 

FECB 99 1000 

FECC 05 1010 

FECD F5 1020 

FECE 78 1030 

FECF C630 1040 

FED1 CDE1FE 1050 

FED4 2165FE 1060 

FED7 34 1070 

FED8 2A65FE 1080 

FEDB CDEEFE 1090 

FEDE AF 1100 

FEDF Fl 1110 

FEE© C9 1120 

1130 

Adresse des" 

1140 

nden Zeichens" 

1150 

ntabelie" 

FEEl ED4B365C- 116© 
FEES 2600 1 17© 

FEE7 6F 1 180 

FEES 29 1190 

FEE9 29 1200 

FEEA 29 1210 

FEEB 09 1220 

FEEC EB 1230 

FEED C9 124© 

1250 

he Druck rout ine" 
FEEE 0608 1260 

FEF© 1A 1278 

FEF1 77 1280 

FEF 2 24 1290 

FEF3 13 1300 

FEF 4 10FA 1310 

FEF 6 C9 1320 

1330 


©700 LD A, (STD) 

0710 CALL ANZ 

0720 ; " '• ausgeb 

LD B,10 
CALL EDI 

; "Minuten a 

LD A, (MIN) 

CALL ANZ 

; " : ausgeb 

LD B, 10 

CALL EDI 

; "Sekunden 

LD A, (SEC) 

CALL ANZ 

; "Zurueck u 

POP HL 

POP DE 

POP BC 

POP AF 

EI 
RET 

; "Berechnen 

ANZ LD C,0F6H 

CALL AUS 

; "Be rechnen 


EDI 


LD 

AUS LD 
LOOP ADD 
INC 
JR 
SBC 
DEC 
PUSH 
LD 
ADD 
CALL 
LD 
INC 
LD 

CALL 
XOR 
POP 
RET 


SUCH 


LD 

LD 

LD 

ADD 

ADD 

ADD 

ADD 

EX 

RET 


C,0FFH 

B, 0 
C 

B 

C, LOOP 
C 

B 

AF 

A,B 

30H 

SUCH 

HL, SCN 

(HL) 

HL, (SCN) 

DRUCK 

A 

AF 

"Sucht die 

"zu drucke 

"in Zeiche 

BC, (23606) 
H, 0 
L, A 
HL, HL 
HL, HL 
HL, HL 
HL,BC 
DE, HL 

"Eigentlic 


DRUCK LD B, 8 

L00P2 LD A, (DE) 

LD CHL) , A 
INC H 
INC DE 
DJNZ L00P2 
RET 
END 
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CPU-Utility 


COLOUR CHANGE 

für Zx-Spectrum 48K 


Dieses Maschinensprache-Programm eröffnet dem Besitzer 
eines Spectrums ähnliche Möglichkeiten, wie sie der CPC 464 

mit seinem INK-Befehl bietet. 


Jede auf dem Bildschirm befindliche 
Farbe - egal, ob INK oder PAPER - 
läßt sich durch einfache neue Befehle 
sofort durch eine andere, beliebige er- 
setzen. Außerdem kann der FLASH- 
Zustand jeder Bildschirmstelle verän- 
dert werden. So können Sie z. B. „un- 
sichtbar“, d. h., mit gleicher INK- wie 
PAPER-Farbe gemalte Bilder schlagar- 
tig sichtbar machen, Teile aus Bildern 
„ausblenden“ oder in einem Spiel die 
Farbe von Objekten ändern. 

Geben Sie Listing ein und starten Sie 
es mit RUN. Fehler in den DATA- 
Zeilen werden Ihnen angezeigt. Ist alles 
korrekt, so wird der Maschinencode 
als „ColChange“ CODE 65000,104 
geSAVEt. Das MC-Programm kann 
später mit CLEAR 64999: LOAD- 
““CODE wieder geladen werden. Das 
Programm kann beliebig im Speicher 
verschoben werden, es läuft daher auch 
auf der 16K-Version. Dazu müssen 
bloß die entsprechenden Zeilen des 
Hexloaders entsprechend geändert wer- 
den. 

R. Fuchs: ColChange 

Die Syntax der neuen Befehle: 

RANDOMIZE USR 65000: PRINT 
INK x,y 

verändert alles mit INK x geschriebene 
zu INK y; 

RANDOMIZE USR 65000: PRINT 
PAPER x,y 

verändert entsprechend PAPER x zu y; 
RANDOMIZE USR 65000: PRINT 
FLASH x 

verändert FLASH 0 zu 1 und umge- 
kehrt. 

Für x und y können statt Zahlen auch 
Variablen oder numerische Expressio- 
nen eingesetzt werden. 

Als kleines Demonstrationsbeispiel 
dient das Listing 2. 


1 


********************** 


3 

4 

5 

6 

7 

8 
9 

10 

110 


* 

* 

* 

* 

* 

* 

* 

* 


COLOUR CHRNGE 
von 

Rainer Fuchs 
Schwarz burgstr . 
6 ö 00 Frankfurt 
069/55 30 51 
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1 


* 

& 

* 

* 

* 

* 

* 

* 


REH 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM *$*$$**$**$*$$$$*$*$*$ 
DflTfi "d f f e3a C0e7e7 f ed92Sld f 
eda282c f ed b" .. 2758 
120 DATO "C0210058cb7e280d.cbbel 
802 C b f e 237 C " , 1721 
130 DATA " r*e5b20f 0e7e7c9cd791cc 
d941e4 f C5cd " ,2498 
140 DATA "941ecl4716071e F81817C 
d791C Cd941e " , 1533 
150 DATA "0707074 f c5cd941S07070 
7C 147163816" , 1073 
160 DATA " c72100567e f 5a2b82S03 f 
11804 fla3bl" , 1930 
170 DATA "77237C fe5b20ed C9" , 109 


3 

1000 

1010 

1020 

1030 

1040 

1050 


CLEAR 64999 
LET f *65000 
FOR Z*1 TO 7: LET c =0 
RERO a $ 

FÜR S=1 TO LEN a $ STEP 2 
LET hsCODE a*(S): LET l =COD 
E a $ ( S + 1 ) 

1060 IF h >96 THEN LET h=h~39 
1070 IF L > 96 THEN LET 1 = 1-39 
1080 LET h =h -43 : LET l = 1.-48 
1090 POKE f,h*lö+l 
1100 LET C = C + PEEK f: LET f = f + 1 
1110 NEXT s 

1120 READ SUIil: IF SUIflOC THEN PR 
INT "Fehler in DATA -Zeile ";z*i0 


+ 100 

1130 

1140 

104 

1145 

CODE 


STOP 

NEXT Z: PRINT "CODE OK" 
SAUE "Co IChange "CODE SSO00 


REM SAUE *"rii 
65000, 104 


1; "Co IChange" 


5 REM deiftü 

10 FOR i =1 TO 270: PRINT PAPER 
RND*3.; INK RND*8; i ; : NEXT i 
15 REM f l a £ h 

20 RANDOMIZE USR 65000: PRINT 
FLASH 1 

30 FOR tsl TO 200: NEXT t 
40 RANDOMIZE USR 65000: PRINT 
FLASH 1 

45 REM i n k. 

50 FOR i =1 TO 7 
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INK i-l,i 

7© FOR t=l TO 200: NEXT 
80 NEXT i 
85 REM paper 
30 FOR i =1 TO 7 
100 RfiNDOMIZE U5R 65000: 

PRPER i — 1 j. i 

110 FOR t=l TO 200: NEXT 
120 NEXT i 
130 RANDOM IZE USR 65000: PRINT 
INK 7 ,i 0 


Hier das Assemblerli- 
sting zu colour change 


ange" 

0ö2ü ; 
SOS© ; 

0040 ; 

4 by r. fuchs 

•V 

0050 ; 


u060 ; 

0070 ; 

65000 : PRINT 

INK x,y 

0080 

nach INK y. " 

0090 

65000 : PRINT 

PAPER x,y 


•"Cotour-Ch 
• v (0) 11/8 


"Format '• •" 
■"RAND USR 
aendert alle" 

INK X 


©lew ; 

65000: PRINT FLASH x aendert" 
0li0 ; 

'ach l und l nach 0 " 

0120 ; 

FDE8 0122 

0125 ; 

0126 ; 


•"RAND USR 
ihend" 

"RAND USR 

"Flash 0 r. 


Ck" 

FDES 

FDE9 

FDEB 

FDEC 

FDED 

FDEE 

FDF0 

FDF2 

FDF4 

FDF6 

FDF8 

FDF9 

FDFC 

FDFE 

FE00 

FE02 

FE04 

FE06 

FE07 

FE08 

FEOA 


DF 

FE3A 

C0 

E7 

E7 

FED9 
28 ID 
FEDA 
2320 
FEDB 
OO 

210058 

0B7E 

2804 

OBBE 

1302 

CBFE 

23 

70 

FE5B 
20F0 


0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 


QRG 65000 

"Syntaxche 
1SH 


RST 

OP 

RET 

RST 

RST 

CP 

JR 

CP 

JR 


NZ 

20H 

2ÜH 

217 
Z, INK 

218 

Z, PAPER 


:CPU-Utility 


PRINT 

FE0C E7 

0340 

RST 

20H 

FE0D E7 

0350 

RST 

20H 

t 

FEOE 09 

0360 
üjbS / 

RET 

• v lnk v 

PRINT 

FE0F CD791C 

0370 INK 

0380 ; 

CALL 

1C79H 

"Parameter 

ab legen - 


1E94H 


FE12 CD941E 

0390 

CALL 

t 

8400 ; 


"Parameter 


rufen" 




FE 15 

4F 

0410 

LD 

C, A 

FE16 

05 

0420 

PUSH 

BO 

FEi? 

CD941E 

0430 

CALL 

1E94H 

FE1A 

01 

0440 

POP 

BO 

FE1B 

47 

0450 

LD 

B.- A 

FEiC 

1607 

0460 

LD 

D.-07H 

FEIE 

1EF8 

0470 

LD 

E.0F3H 

FE20 

1817 

0430 

JR 

TOGGL 



0485 

t 

"Paper" 

FE22 

0079 IC 

0490 

PAPER CALL 

1C79H 

FE25 

CD941E 

0500 

CALL 

1E94H 

FE2S 

07 

0510 

RLCA 


FE29 

07 

0520 

RLCA 


FE2A 

07 

0530 

RLCA 



3 Bits 
FE2B 4F 
FE2C 
FE2D 
FE30 
FE31 
FE32 
FE33 
FE34 
FE35 
FE37 


0540 
nach Links - ' 
0550 


05 

CD941E 

07 

07 

07 

01 

47 

1638 

1EC7 


0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 


LD 

PUSH 

CALL 

RLCA 

RLCA 

RLOA 

POP 

LD 

LD 

LD 


•"Parameter 

C, A 
BO 

1E94H 


BO 

B..A 

D. 33H 

E, 0C7H 
•"Aenderung 


s reut ine - " 




HL,5300H 

FE39 210058 

0660 

TOGbL 

LD 

FE3C 7E 

0670 

LOOP 

LD 

A, (HL) 

FE3D F5 

0680 


PUSH 

AF 

FESE A2 

0690 

0700 


AND 

D 

"D = Maske 

zum Testen, 

ob entspr. 

Farbe - 

V 

FE3F B8 

Farbe (=Para 

0710 

0720 

1) " 


CP 

B 

"B = ALte 

FE40 2803 

0730 


JR 

Z.-OK 

FE42 Fl 

0740 


POP 

AF 

FE43 1804 

075Ü 


JR 

NEXT 

FE45 Fl 

0760 

OK 

POP 

AF 

FE46 A3 0770 

0780 

zum ueraendern" 


AND 

E 

"E = Maske 

FE47 Bl 

0790 

0800 


OR 

C 

•"C = Neue 


Farbe (=Para 2 
FE48 77 
FE49 23 
FE4A 70 
FE4B FE5B 
FE4D 20ED 
FE4F 09 


0220 

0230 


CP 

RET 

219 

NZ 

NEXT 

FE49 

0235 

{ 


"FLash - ' 

OK 

FE45 

0240 

FLASH 

LD 

HL , 5800H 

LOOP 

FE3C 

0250 

LOOPF 

BIT 

7, (HL) 

TOGGL 

FE39 

0260 

JR 

Z.-ON 

PAPER 

FE22 

0270 

OFF 

RES 

7.. (HL) 

INK 

FE0F 

0280 


JR 

GÜON 

GOÜN 

FE06 

0290 

ON 

SET 

7, (HL) 

ON 

FE04 

0300 

GOÜN 

INC 

HL 

OFF 

FEÜ0 

0310 

LD 

A.H 

LOOPF 

FDFC 

0320 


CP 

5BH 

FLASH 

FDF9 

0330 


JR 

NZ.. LOOPF 

t 

5E08 


0810 

0820 

0830 

0840 

0850 

0860 

0870 


NEXT 


LD 

INC 

LD 

CP 

JR 

RET 

END 


(HL) , A 

HL 

A.-H 

5BH 

NZ * LOOP 
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CPU-Game 


PANIK SAM für den Zx-Spectrum 48k 

00.00 Uhr... es ist Geisterstunde! 


Sam hat in seinem gekauften Haus ver- 
schiedene Werkzeuge vergessen und 
möchte diese zu später Stunde noch 
holen. Doch zu dieser Zeit treibt ein 
Gespenst in Sams Haus sein Unwesen 
und versucht mit aller Macht, Sam am 
Holen seines Werkzeuges zu hindern. 
Um jedoch das Gespenst zu überlisten, 
muß Sam auf folgende Punkte achten: 
Er darf sich weder von dem Gespenst 
erwischen lassen noch darf er auf eine 
der Bomben, die vom Gespenst heim- 
lich gelegt wurden, treten. Fällt Sam 
vom Gerüst oder steigt beim Hinab- 
klettem der Leitern zu spät ab, so hat 
sein Leben ebenso verwirkt, wie wenn 
er mit dem Kopf gegen einen Eiszapfen 
stößt. Um seine Werkzeuge einzusam- 
meln, muß Sam dagegenspringen. Hat 
er alle dreizehn Werkzeuge eingesam- 
melt, so erhält er 100 Bonuspunkte. 
Achten sollte Sam jedoch darauf, durch 
eine Leiter hindurchzuspringen, da die- 
se hierdurch zerstört wird und Sam sich 
diesen Weg somit versperrt. 

Nach jedem Absturz wird das Spielfeld 
neu aufgebaut. Sam springt immer' in 
die Richtung, in der er zuletzt gelaufen 
ist. 

Steuerung: B = links; M = rechts; N = 
Sprung; A = hoch und B = runter 

Viel Spaß!!! 


1 REM gtfNIK 5 RH 

2 REM © 1984. by Ottfried 

Schmidt 

3 REM Ernstbergs t r , 12 

4 REH 8808 Melsungen 
10 LET hs c = 0 

20 CLS : PRINT RT 11,8; INK lj 
FLRSH 1; “Bitte etwas Geduld!' 1 
30 GO SIJB 9000 
5© LET I. e i »© 

6© LET C»4: LET d »0 : LET C2*©: 
LET d2»l 
7 0 


li 

E8?M28? 7 ii» 9 i 

i re 

=3: LET 

w 

e r K = 

© : LET 

r i =© 




90 

BORDER 

1: PAPER 

1 : 

INK 6: 

C 

LS 






100 

P R I NT 

PT 21,0; 

INK 

6 ; "eeee 

e 

eee 

eeee e 

eee eee ee 

e e 

eeee" 


110 

PRINT 

HT 20,0, 

INK 

4; " 

r 



f 


r 


120 

PRINT 

RT 18,0; 

INK 

4 : " 

r 



f 


r " 


12 5 

PRINT 

RT 19,0; 

Tnk 

4; " 

r 



f 


r 



130 PRINT RT 17,0; INK ö; "eeeee 
e eeee eeeeeeeeee eeee eeee" 

135 PRINT RT 16,0; INK 4;" 

f t . 

140 PRINT RT 15,0; INK 4;' 

- f f 

145 PRINT RT 14,0; INK 4.;' 

“ n, i50 PRINT RT 13,07 TnFT~WT 

a *ll*pSM e st*i 2 *S?‘!N&V 


16© PRINT 
f 

165 

“T75T p-prifTT 

eeeee eee 


RT 11,0; 
f 

PRINT RT 10,0; 

T0T 


4- ; 


f 

INK 
f 

INK 4; 

TTTFC r 


eee 


175 PRINT 
f 

18© PRINT RT 
f 

1ÖS PRINT RT 6,0; 


eeeee eee eeeee 
RT 8,0; INK 4-.;" 

I 

7,0; INK 4;" 

i 

INK 4; 


"eee« 

* i 


/ s c 
L i V 


R 

1; " 


WT &~7Wj TRK ST^eeee e 
eee eeeeeeee eeee eeee eee" 

195 GO SUB 700© 

200 PRINT RT 2,0; INK 2;"eeeeee 
eee eeeee eeeeeeee eeeeeeeeeft" 

222 LET w* =0 
228 POKE 23607,60 
230 PRINT |?;RT 1 , 0 ; "SCO r 
; RT 1, 12; "HSC»"; hsc; RT 1,2 
e ■= " ; 1 1 f s 

235 POKE £3607,24-9 
24-0 LET a*20: LET b-31; PRINT 
T a,b; OUER 1; INK 

" 24.5 PRINT RT C , d ; 

1.; OUER 1 ; " d " 

250 LET a 1 =a : LET 
260 IF INKEY * = "m M 
1 : LET r i =1 
270 IF INKEY * =« " b " 

1 : LET r i =-l 

F000 lr b>:31 QR b<0 THCW 130 
"Ip SCREEN* Ca +1, b) ss" •• THEN 

CO TO 5000 

286 IF SCREEN* C a , b ) = " h ” THEN G 
O TO 5000 

290 IF 3<£1 THEN IF INKEY *="z" 
THEN IF SCREEN* C a +2 , b ) <> " f " THE 

T HF w a<§? THEN IF INKEY * * " z " 

THEN LET a =a +2 : LET r i =0 

31© IF INKEY ä *» " a " THEN IF 5CREE 
N$ (a,b >»" f" OR 5CREEN* <a,b)-"e 
" THEN IF ÖCREEN* < a - 1 , b ) < > " " T 

H EN IF öCREENt (a-l,b) <>"g" THEN 


5; 0RIGHT 
INK 6; BRIGHT 


bl = b 

THEN LET b«b+ 


THEN LET 


b»b- 

ÖUS 


sie prIn^ rV ai'.bif 


OUER 1; "a 


RT a , b; INK 5; BRIGHT 1; OUER l; 
" a " 

330 IF INKEY * = " n " THEN IF ri O0 
THEN 50 SUB 1000 
34-0 LET c 1 * C : LET dl=d 
350 LET CSSC+C2: LET ds#d+d2 
360 IF a = C THEN IF b=d THEN GO 
TO 5000 

365 IF SCREEN* Cc,d)="h" THEN P 
RINT PT C , d ; OUER l.;"h" 

368 IF Lei =» 0 THEN IF SCREEN* Cc 
+•2 , d > ss" f " THEN IF SCREEN* C c +2 , d 
) <>•'_" THEN GO SUIS 2O0O 

!§§i EN * (c 
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kshbhmi massBumam 

370 PRINT RT Cl,dl; OUER 1; "d"; 
flT c,d; INK 6; BRIGHT 1; OUER 1, 

380 IT d > =30 TUEN LET d2 = -l 


) *5 THEN 


INK 7; BRI 


THEN PRINT RT C,d-1; 

G 4!l0 1 iF O Vli ? -i ; THEN IE C2=2 THEN 
IF C+S-S0 OR C+e-16 OR c+2-12 OR 
C+2=8 TUEN LET Lel=0; LET CS=0: 
PRINT RT C , d ; OUER l;"d": LET C 

r&r^iT 8b!Ä N i ; •'Sw?*si t tüB p i^ 

0 

4-20 IF lei »1 THEN IF c2«~2 THEN 


if c-a-e 

C -S = 4 
PRINT 


op c -a-ia or c-a»ie or 

THEN LET lei=0: LET Cä=0: 

RT C , d J OUER l;"d“; LET C 

s C —2 : ' LET 2 U = INT (RND*2J +1: PRIN 
T RT c , d ; OUER 1 ; •• cf : GO SUB 201 
0 

©00 GO TO 250 

1000 IF ri=l THEN GO TO 1500 
1005 IF b < = 2 THEN RETURN 

l. ET 

LET K $ = 8 C R E 


Efsl 


10 LET 

1 5 

laSCRtCNi 

$ =5QR£ 

EN i 

l ca / b-2? 

$ c a -1 

/ b-1) 


OUER 1; "a 1 


B 


1020 PRINT RT a , b; 

EEP .01, 30 

1030 PRINT RT a-l,b-l; INK 5; BR 
IGHT 1) OUER lj”a": BEEP .01/35: 

BEER .01/40: BEEP .005/50 
1040 PRINT RT a-l/b-lj" " ; RT a , b 

10S0 IF fc#a"9" OR J ta d OR jt = " 
K" THEN GO TO 5000 , ^ 

1060 IF k*="i" OR K*="j" OR K $ = 
k “ THEN GO TO 1100 

1070 ir i*="d" OR i*="h" THEN GO 

TO 1200 

1080 RETURN ^ 

1100 LET p=lNT (RND*3)+1: PRINT 
RT a-l/b + l; INK 6; BR IGHT l;d* !P 
) 


1110 
EEP 
1120 
1 125 


BEEP .01/20: BEER .01,24: B 
01,26: BEEP .01,32 
~F p=l THEN LET £C*SC+10 
r .3 +UPW i FT ersSC+20 


!f p =2 THEN LET 


1130 IF p = 3 THEN LET SCsSC+50 
1140 PRINT RT a-l/b+l; 
ins let w*rk-werk+li IF werk =12 
THEN GO TO 4000 
1150 GO TO 1250 

1200 PRINT RT a,b+l," “ : LET P *1 

nT a ' d “; 

1210 BEEP .01,10: BEEP .01,14 
01,18! BEEP .01,22 
IF p=l THEN LET SC*SC+10 
IF p =2 THEN LET s C =5 C +20 
IF psj THEN LET S C =S C +50 

mm “ 

PRINT PT a, b; 

IF THEN LET C «4 


IN 

B 


EEP 

lese 

1S25 

123© 

\m 

1SS5 
iß 


«. c 


T d»l; LE' 


i $ = 
ET 


PT C f d J INK 
12&0 RETURN 

ifi““ " ' 


d 2 ee 1 


«=• , 


LET 

OUER 


C2®0 : 

1 ; M d M 


LE 
PRINT 


IF b>«30 THEN RETURN 
LET i**5CREEN$ Ca,b + 1) 


LET 

LET ktaÖCRE 

l;"a"! B 


J * «SCRBEN* Ca , b+2) 

EM* Ca -1 , b + 1) 

1S10 PRINT PT a , b ; OUER 
EEP .01/30 
IBS© PRINT RT a-l/b+l; INK 55 ; OR 
IGHT i; OUER 1; " a “ BEEP . 01/355: 

i8IS%ft!Ä+ 4 8t t5! R b;!?s;S?Rr 

+2; INK S; BRIGHT 1; OUER l;"a" 
1635 BEEP .0007,60: LET b = b+2 
1640 IF k*=»"f" OR J*-"d" OR J $ - " 
h" THEN GO TO 5000 

1550 IF KS="1" OR R|s"J“ OR K $*" 

1S65 H ?F 1 Bi 0 i 5*"h " THEN GO 

TO 1700 
1570 RETURN 

1600 LET p=INT (RND*3) + 1 : PRINT 
RT a-1, b-1, INK 6; BRIGHT 1 ; d * < P 

liiTiS?l e : 0 iii? : .8f E § 2 ' el ' ad: e 


CPU-Game 




1620 IF P ml THEN LET ft C = * C + lg 
162S IF p = a THEN LET ÄCsbC+^g 
16-30 IF p*3 THEN LET ftC®fiC+50 
1640 PRINT RT & -1 / b~l; '} " 

164S LET wt r k*wirk+l: IF werk «12 
THEN GO TO 4000 

i?ii £§1NT äl Lb-.l;" LET P|1 

NT ( R N B * 3 3 + 1 : PRINT RT a,b-l; IN 
K 6; BRIGHT l;d*(p) 

1710 BEEP .01,10: BEEP .01,14: B 

!?£ e -!A'|S i ?SiE 

}?SE ff hi THEN tiT SgZlUll 

1740 PRINT RT a,b-l;" 

1750 PRINT tt 0 flT 1 , 6 ; fi c 
1755 PRINT RT a , b; 

rsSi? r L y-äi: 1 f M E&r L fs.sr*pi.it5? 
tusr ei 0UER i; d 


.005,45: LET ZU »INT (R 
THEN LET d S » 1 ; RETU 
L. ET d 2 * - 1 : RET 


1999 STOP 

2000 BEEP 
ND*4) +1 
£010 IF ZU=1 
R M 

2020 ir ZU »2 THEN 
URN 

2030 IF ZU «4 THEN IF CO 4 THEN I 
F SCREEH* (C,d) a'T THEN LET Lai 
»Xi LET ca«-Sj LET d2«®: RETURN 
2040 IF ZU *3 THEN IF C < >20 THEN 
ir SORGE N$ (C+£;d)« ,, r THEN IF 6 
GREEN r ' " ^ 


I W w I-. U-. »— II av-TSÄ/s-i/«- i i MUH l > M 

REENS ( c +2 , d ) < > THEN LET Lei 

iÄ 0 L ijr5iN 4; LET d2=0: RETURN 

4000 CLS : LET we r k =0 : FOR i=l T 
O 10 

4010 PRINT RT 11,11; INK INT (RN 
0*7) +1; PAPER O; FLRSH 1, "BONUS" 
4020 FOR L «20 TO 30: BEER .005,1 

tm'Lk T N l^£HiSi XT 1 


GO TO 90 

IF b > 3 1 THEN LET bs31 
IF b<0 THEN LET b»0 
FOR i «a TO 21 
PRINT RT i-l/b," ";RT 


i , b, 

BEEP .01,30: B 
IF L i f e *0 


4040 
5000 
5010 
5®20 
5030 

INK b; " a" 

!2s; 0 n6xt x 

5050 LET li fesli fe-1: 

THEN GO TO ©030 
5055 LET werk »0 
5060 GO TO 90 

7000 PRINT RT 19,10; INK 7i "iK" 
7010 PRINT RT 19, ,9j INK 2 , ' 9 " ; RT 

7O20 C PRXNT K flr' iS, 11; INK 7;"i";R 

INK 7 j ;; k ;; 

7040 PRINT RT 3, IS; INK 7 ; 1 ; MT 

3,19; INK 2; "99'' , 

TSl 0 il R iäT 


INK 2; "9 9 " 

INK 2; "9 9"; 


99 


7060 PRINT RT 11,4; 

«T 11/5; INK 7; " x " 

7070 PRINT RT 11,22; 

" ; RT 11/23; INK 7 ; " J " 

7^8® PRINT RT 7,1; INK 

!i§? 'fRiNT.flv 

7090 PRINT'' RT 7,29; INK 
7,19; INK 7; " k " 

7100 RETURN 

6000 POKE 23807,86: CL.S : PRINT 
HT 11,0; "Schade jetzt hau dich 

lä&i; 1 lfelf'JT H "Du hast " s c ; " Punkt 

S010 1 " BEER 1 . 1 , 30 : BEEP .13,23: BE 
EP .17,26: B^EP .22,22: BEEP .3/ 

14 : BEEP .6,-2 . 

8020 IF iohsc THEN Lei nsc»£C: 

PRINT "NEUER HIGH SCORE" 

8030 PRINT '""Neues Spiel? J/N" 

8040 IF INKEY *»'■•■ THEN GO TO 804 
0 

3050 IF INKEY* <>"n" THEN GO TO 5 
0 

8999 POKE 23607 ,60: STOP 

9000 FOR i »15516 TO 16388: POKE 


INK 2; "9 
h; "9 9 

INK 7 , " J " ; RT 
7; " i " ; RT 
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l|?SViÄ p ffg*Ug N f§ T 6 i 8S0 *,a.i 31 

4 - 7 : REwD a : POKE i,Ä: WEXT i 

E 1 5 TP 60,126,ai9,255 ; 25S ; aiQ 

i 10J2 , 60 

910.0 DPITR 0,0, ö,©,®,©,©,© 

9120 ORTR 0,0,0 , 0i0 , 0 , 0,0 

91$jsg} DAT R 56 , ^6 , let4- ,84 , 64 . , 124 , 12 

255 , 2SS , 36 ,24,24,36,25 

S i 5S«. D ?I2 196 , 195 , S5B , 19S , 19 » .■ 19 

" ^ «!53 ^ 193 

'|l®g p C>fl T R 255, 127, 105, 105,69,97, 

3i^0‘'DATA 0,0,0,0,24,36,36,24 

9180 DATA 30,62.6,8.8,8.0.0 
9190 DATA 0, 195, 102; 60, i02, 195,0 

9fi®® DAT 6 64. , ie 1 , ea , 1 a , 12 , ©a , 1 © 1 

SSiS R9I0 0/0/304,62,82,52,75,0 

f 8 fSa DRTR 3,333 J 137 ' 137,236,41,4 

9230 DATA 0 , 102 ,41,41, 233 , 137 , 13 
7 , 230 

9300 INK 4: PAPER 0: BRIGHT 1: C 

9310. PRINT RT 0,ix, rt_A3M i; "Pan 

932a PRINT AT 1,5; "12 Uhr Geiste 
r fl tundß " 

Q33© PP INT "Sam hat im Neubau se 
in Werkzeug fergessen und will e 
® Jetzt holen doch da treibt 

u rfi , d i e s e Uh rze i t ein Gespenst 

& 1 P& iM* "lim darf folgendes n 

ich!:": PRINT "Sich vorn gespenst 
erruiischen Lassen auf eine d 

er Bomben die das Gespenst i. eat 
treten" 


9350 
bei rn 

te r 2 

iCht 
zapfe 
9350 
9 e h o 
i ng t 
euge 

93^1 

CKEN ! 
938© 

0 

3390 

Kinde 

h ZU 

r r s t o 
n weg 
9400 
ach j 


94-10 
die 
U l ft t 

94.20 

9430 

=Re c 
9440 


PR 

ru 

u 

m i 
n 

PP 

1 t 
s c 

2 U 

! " 

IF 


INT "«Jom 0 
n ur- k 1 . e 1 1 
spae ta hs t* 

t. dem Ko pf 
s t o s s 
INT "Di e w 
indem 
hafftman e 
„ - P f l u 

SnT a ® 00 “ 5 


!?a¥ ! 

INKEY $ =0 " 


eruass 
e r ri v o 
i 3 6 n u 

gegen 
e n " 

e r K 2 e u 

man d 
s a l l e 
eggen ' 

!?#?** 


t fallen 
n der Lei 

n 4 auch n 

einen Eis 

g o m grd* r> 

agegenspr 
1 3 W c r k z 
ti dann gib 

R3TE DPUE 

THEN GO TO 938 

CLS : PRINT "Man sollte ver 
rn durch ein «Leit er hiridurc 
Springen wei isie dadurch ze 
ehrt wird u n d m a n sich diese 
ver bau t " 

PRINT "Das Spielfeld wird ri 
edern Stur tz neu au f ge baut 

PRINT "Sam springt immer in 
Richtung in die er z 
gelaufen ist" 

* “Steuer u n g : " 

"©»Links N »Sprung M 


z t 

PRINT 
PRINT 
h tS " 
PRINT 


9450 PRINT 


£ 

93 


* n " 
9460 

§S38 


A =5 H O C h 
BsRun te r " 
"Alles K. La r 7 

Taste 


-ir INKEY*»"" THEN 

BRIGHT 0 
RETURN 


GO 


d r u e c k. 
TO 946 


Lunar-Simulation 

für Atari-Computer 


10 

REM 

******************** 

20 

REM 

* 

* 

30 

REM 

* 

* 

40 

REM 

* 

* 

50 

REM 

* 

BY * 

60 

REM 

* 

* 

70 

REM 

* 

Bauer Andreas * 

90 

REM 

* 

* 

91 

REM 

* 

< c >1984 * 

92 

REM 

* 

* 

93 

REM 

* 

* 

94 

REM 

*Te 

•1. » < 1851 > 8794 * 

95 

REM 

* 

* 

96 

REM 

mm************** 

1000 F== 

=300 

= UU=20 = GÜSIJB 10060 

1010 POKE 

704, 0 = PM=PEEkX 106 > 


Bei diesem, auf dem Atari 600XL ge- 
schriebenem Spiel müssen Sie versu- 
chen, mit einer Raumfähre auf einer 
Mondplattform zu landen. Hierbei 
müssen Sie auf den begrenzten Treib- 
stoff achten und versuchen, weich zu 
landen. Die Fallgeschwindigkeit kön- 
nen Sie am Punkt hinter dem „G“ able- 
sen. Ist dieser Punkt unterhalb der Mar- 
kierungslinie, so ist die Fallgeschwin- 
digkeit so klein, daß Sie sanft landen 
können. Geschieht dies nicht, so ist die 
Raumfähre zerstört, und das Spiel ist 
aus. 

Nach jeder guten Landung, die durch 
einen Signalton zu erkennen ist, be- 


kommen Sie 100 Liter Treibstoff hin- 
zugerechnet und eine neue Plattform 
wird gezeichnet. Die Plattformen wer- 
den von Mal zu Mal kleiner. Ebenso ist 
es möglich, daß zwei oder mehrere 
Plattformen erscheinen. Es ist Ihnen in 
diesem Falle überlassen, auf welcher 
Sie landen. In Notfällen können Sie 
auch im Gebirge landen, vorausgesetzt, 
Sie setzen mit beiden Landestützen 
gleichzeitig auf. 

Gesteuert wird mit Joystick und gleich- 
zeitigem Drücken des Feuerknopfes. 
Das Programm benötigt ca. 16 KB 
RAM. 


Din p< i0> 

1. 0 1 0 POKE 704 , 0 = PM=PEEkX 1 06 >-64 : Pß=sPM*256 = POKE 54279 , PN = FÜR QQ=PB+ 1 022 TÜ PB+ 1 79 
2 = POKE QQ/0-HEKT Qß = X=60 = Y=30 

1020 POKE 623,1= POKE 53256,0= POKE 53257,0 «POKE 559, 62= POKE 53277.3 
1030 RESTORE 3020= FÜR A=1536 TO 1560= READ I = POKE R/I=NEXT fl 

3020 DATEI 104,104,133,204,104,133, 203 ,104,1 33 ,207,104,1 33 ,206,1 60 ,0,1 77 , 206 ,145. 
203 , 200 ,192,16,208,247,96 

3030 RESTORE 3040 = FÜR A=260 TÜ 355= READ I = POKE A,I=NEXT A 
3040 DATA 0,0,0,24, 60 , 60 , 60 , 24,36,102,0 , 0 , 0 , 0 , 0 , 0 
3050 DATA 0,0,0,24, 124,252, 124,24,36, 102,0,0,0,0,0,0 
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3060 DRTR 0 , 0 , 0 , 24 > 62 , 63 , 62 .. 24 , 36 .. 1 02 , 0 , 0 , 0 , 0 , 0 , 0 

3070 DRTR 0 .i 0 .• 0 ,i 24 .• 60 , 60 , 60 , 24 , 60 , 126, 60; 60, 24, 24, 0; 0 

3080 DRTR 0,0,0,66, 193,24, 139,74,0,42,0,66,0,0,0,0 

3085 DRTR 0,0, 0,0, 0,0, 0;24, 92, 254, 0,0, 0,0, 0,0 0 _ r , _ oi oda 

3090 FOR A==* 1 TO 6 = RERD I • P< R >= I = NEXT R = DRTR 26Ü ,27b, 292 , 30d , 224 , 240 

3100 D»ÜSR< 1536, PB+1 024+Y, 260) „ , 

3110 C-0 : FOR R=Pß+ 1 024+Y TO PB+ 1 039+Y = F’OKE R , PEEKX F'< G )+C > = 0=0+ 1 ! HEXT R : H-l • F OKE 

704, 10 


4010 

4020 

4030 

4040 

4050 

4060 

4070 

4071 

4072 

4073 
4080 
4090 
4100 

4105 

4106 

4107 
4110 
4120 
4130 
4140 
4150 
41.60 
4170 

4997 

4998 


IF 

IF 

IF 

IF 

IF 


Z=1 

Z=1 

Z=1 

R=1 

R=1 


5100 


S=8T I CKX 0 ) ! SS=8TR I GC 0 ) „ „ 

IF F > 1 5 RND S=7 RND SS=0 THEN F=F-1 = H=3 = W==W-0. 03 = SOUND 0, 100, 0,4 
I F F > 1 5 RND 8= 1 1 RND 88=0 THEN F=F~1 = H=2 ; W=W+0 . 03 : SOUND 0 , 110^0,4 
IF F>15 RND 8=14 RND 88=0 THEN F=F-1 ! H=4 = F-P-0. 03 ! SOUND 0,90,0,4 
X=X+U = Y=Y+P = P=P+0. @1 

IF 88=1 OR 8=15 OR F<15 THEN SOUND 0,0, 0,0 
C=2*X-83 = V= Y-23 = COLOR 1 
IF C< 12 THEN X=200= 0=317 
IF 0317 THEN X=50=C=17 
IF Y< 25 OR V >171 THEN 5200 
LOGRTE C- 1 1 , V , Z = LOCRTE C , V , ZZ 
RND ZZ=1 RND P<0.3 THEN 
OR ZZ=1 THEN 5200 

RND ZZ=1 RND F'>0.3 THEN 5000 ,, 

THFN FOR J=0 TO 500 : NEXT J : D=USRX 1 536 , F'B+ 1 024+ 1 , P b > > 

THEN GOTO 4107 
COLOR 0 : PLOT F, 187 ; COLOR 1 
IF W>0. 1 THEN W=W~7 . 0E-03 
IF W<-0. 1 THEN W=W+7 . 0E-03 
IF PEEKX 53279 >=6 THEN RUH 
IF PEEK< 53279 >=3 THEN GOSUB 6000 

COLOR 0 : PLOT FF, 179 : FF=F'$ 100+20 : IF FF<20 THEN FF =20 
COLOR 1 = PLOT FF, 179 
D=IJSR< 1536, PB+1 024+Y, P< H > > 

POKE 53248, X * H=1 = GOTO 4000 


5010 FOR J=0 *T0 ' 150 ; SOUND '' 0 , J 0 , 5 = NEXT J = SOUND 0 , 0 , 0 , 0 = D=U3RX. 1 536 , PB+1 024+Y , P( 6 > 

> 

5020 GOTO 5300 

5 1 00 SOI IND 0 . 0 , 0 , 0 = Y==Y~ 1 = D=USR< 1 536 , PB+ 1 024+Y , P( 1 > > , 

5110 FOR P2=l TO 4i FOR RZ=80 TO 185 STEP 6= SOUND 0, HZ, 10, 10 : SOUND 0, RZ+1 , 10, 10 ! N 

P y T LJ y** • k J C* V T 

5120 FOR W=22 TO 222 STEP 5= FOR RZ==W TO W-7 STEP -1= SOUND 0, RZ, 10, 10 ! NEXT AZ=NEX 
T W : SOUND 0,0, 0,0 

5130 SCsSC+F = U=U“3 = F=F+100 : IF F>300 THEN F===300 _ . PED1IT 

5 1 40 PLOT 21,187 = POKE 704,0 = DR AUTO F , 1 87 = COLOR 0 = FOR J= 1 20 TU 1 < 1 = PLO T 0 , J = DRAU T 

0 319, J= NEXT J' COLOR 1 
5 1 45 COLOR 0 = PLOT FF ,179 = FF=20 = COLOR 1 
5150 GOSUB 10060= GOTO 1010 

5200 D=USR< 1 536 , PB+ 1 024+Y , P( 5 > > „ „ , _ 

5210 FOR .J= 1 5 TO 0 STEP -0.1= SOUND 8, 100, 0, J ! NEXT J = POKE 704,0 

5300 GRAPH I CS 2+ 1 6 = POS I T I ON 5 , 2 = ? #6 , " GRflE OVER " = POS I T I ON 4 , 4 = Y #b ; " SCORE = " > SC 
: POS I T I ON 4 , 6 = ? #6 i " PRESS START " 

5301 X= 1 0 = POKE 53248, X 

5310 IF PEEKX 53279 >=6 THEN RUN 

5320 GOTO 5310 _ „ , 

6000 FOR .1=0 TO 3= SOUND J, 0,0,0= NEXT J=FQR J=0 TO 50= NEXT J 
6010 IF PEEKX 53279 >=3 THEN RETURN 

1 0000 fj GRRPH I CS 2+ 1 6 = POS I T I ON 6,0 = ? #6 ; " LUNAR- " = POS I T I ON 4 , 2 = ? #6 ; "SIMULRT I ON" 
10010 POS I T I OH 8 , 5 = ? #6 > " BY " = POS I T I ON 3 , 7 = ? #6 ; " BAUER ANDREAS = POS I T 1 OH 4 , 9 = i #t> 
i "PRESS START" = POKE 704,0 

10015 IF PEEKX 53279 X >6 THEN 10815 „ ^ r 

10020 FOR J=2000 TO 0 STEP -5= SOUND 0, J, 10, 10 = NEXT J = SOUND 0,0, 0,0 
10050 GRAPHICS 24 = SETCOLOR 2, 0, 0 = 5ETC0L0R. 1,0, 12 = COLOR. 1 


Februar 1985 


■■MM 

CPU 63 


CPU-Game 



10060 PÜKE 784,0 = PLOT 0,170 = ML= I HTC RHDC 0 >* 1 0 >+5 = FOR J=1 TO INK RHDC 0 >*260 > STEP 
ML = K= I NT( RHDC 0 >* 50 >+ 1 20 

1 0070 DRRWTO J , K = HEXT J = SS« I HTC RHDC 0 >*50 >+ 1 20 = H« I HTC RHDC 0 >* 1 0 )+IJU = DRRWTÖ J+5 . SS = 
DRflWTTi 1+ Pi4*H • SA 

1 0080 ~ FOR " V« J+H+ 1 5 TO 319 STEP ML = FD« I HTC RHDC 0 >*50 >+120 = DRRWTO V, FD = HEXT V 
1 0090 PLOT 14,184 = DRRWTO 9 ,184 = DRRWTO 9 , 1 90 = PLOT 9,187 = DRRWTO 12,1 87 = PI OT 18-186 
= PLOT 18, 188 = PLOT 21,187 

1 0095 DRRWTO F , 1 87 = POKE 704,10 = W=@ = H= 1 

1 0096 PLOT 14,176 = DRRWTO 9,176 = DRRWTO 9,181= DRRWTO 14,181= DRRWTO 14,179 = DRRWTO 1 
2, 179= PLOT 18, 178= PLOT 18,180 

10100 PLOT 50, 176= DRRWTO 50, 182 = RETURN 


Mauer-Fluch für Atari 

Ihre Aufgabe ist es, ein Männchen namens Ohm zu steuern 
und mit ihm Geldbeutel einzusammeln. 


Ein Hindernis ist allerdings, daß Sie und haben Sie alle Geldbeutel aufgele- 

eine Mauer hinter sich herziehen, die sen, so werden Sie von Ihrem Fluch 

Ihnen ein böser Zauberer angezaubert befreit, 
hat. 


rühren und haben nur eine bestimmte 
Zeit zur Verfügung, um die Geldbeutel 
in einem Raum aufzusammeln. Gelingt 
es Ihnen nicht in dieser Zeit, so flutet 
Doch bis dahin ist es noch ein weiter der böse Zauberer das Zimmer mit 


Kommen Sie durch alle zehn Räume Weg, denn Sie dürfen keine Mauer be- Wasser und Sie ertrinken. 


LASER 110-4 KByte RAM. Dieser „persönliche Computer” eignet sich als Helfer beim Studium, am Arbeitsplatz oder 
bei Analysen und Statistiken. Mit seinen Peripheriegeräten erfüllt er alle Ansprüche an einen Home-Computer. 


1 GRAPH I CS 1 7 ' POS I T I OH 5 .» 1 0 : ? #6 < " PLERSE WA I T " 

1. ö PAGE=PEEK< 1 06 )-8 : CHS«PRGE*256 

20 FÜR 1=128 TO 471 : PÜKE CHStl , PEEK< 57344+1 > • HEXT I 

30 READ IMF CCM THEN FOR I«0 TO 7 • READ Fl - PÜKE CHS+C*8+I , R • NEXT I : GOTO A0 
40 GOTO 100 

4P« DATA 1 .• 85 .• 1 86 .» 68 .• 60 .• 1 26 .. 255 .• 1 58 .• 1 26 
50 f >A I H 2 .« 24 7 .* 0 .» 1 89 .< 1 89 .* 1 89 .• 0 .« 247 > 247 
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3 , 1 26 , 255 ,215, 255 , 1 95 , 1 26 , 1 02 , 23 1 


55 DATA 

60 DATA 4 , 17,68, 1 52. , 62 , 92 , 62 , 42 , 73 
65 DATA 5 , 60 , 1 26 ,219 , 255 , 1 89 , 195,1 26 , 60 
70 DATA 6 ,162,1 53 , 255 , 255 , 255 , 255 , 255 , 255 
75 DATA 7 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , - 1 
100 REM 

110 GRAPHICS 1 7 = PÖKE 756, PAGE 

120 FÜR 1=0 TO 23 : CÜLÜR 2 -PLOT 0, I = DRAWTO 19, 1 : HEXT I 

1 30 POS I T I ÖN 4 , 5 * ? #6 ; " BERND THOMAS " = POS I T I OH 6 , 7 = ? #6 ; " PRESENS " < POS I T I OH 4 , 1 2 = 
? #6 ; "MAUER FLUCH" 

131 POSITION 5,20=? #6; "PRESS START" 

132 IF PEEK< 53279 >==6 THEN 1000 

133 FOR T-15 TO 0 STEP - 1 = FÜR D=16Ö TO 170 = SOUND 1,D,10,T = FOR 1*130 TO 200 = SOUND 
0, J , 10, T 

134 FÜR H===0 TO 50 = HEXT H = SOUND 0, 0, 0, 0 = SOUND 1,0, 0,0 

135 IF PEEKX 53279 >=6 THEN 12500 

136 HEXT I = HEXT D = HEXT T 

1 800 SOUND 0 , 0 , 0 , 0 = SOUND 1,0,0, 0 
1010 ROÜM==0 = GÜL==0 = P==0 = L I V==3 = T I ME==650 
1020 GRAPHICS 17 = PÖKE 756, PAGE 

1 030 ? #6 .= " RAUM 2E I T = 000 " = ? #6 i " LEBEN = 3 SCORE = 0 " 

1040 REM RAUM BAUEN 
1050 GOSUB 5000 

1060 REM HAUPT SCHLEIFE 

1 06 1 X== 1 8 = V===4 = COLOR 35 = PLOT X , V 
1 070 T I ME==T I ME- 1 = POS I T I ON 1 3 , 0 = ? #6 ; T I ME ) " 

1 080 ST==ST I CK ( 0 > = XR==0 = YR==0 
1 090 XR==XR-< ST >8 AND SK 1 2 > = XR=XR+< ST >4 AND 
= YR=YR+< ST==9 OR ST==5 OR 8T= 1 3 ) 

1110 LOCATE X+XR, Y+YR, Z = IF Z==l 
1120 IF 2=162 THEN 8000 

1130 IF 2=32 THEN SOUND 0, 158, 8, 12 = COLOR 16 
T X, Y * SOUND 0,0, 0,0 
1300 GOTO 1070 
RÜOM===ROÜM+ 1 

FOR U=3 TO 23= COLOR 32= PLOT 0,U= DRAWTO 19, U= HEXT 
IF ROÜM==l 1 THEN GOTO 12000 

COLOR 1 62 = PLOT 8 , 3 = DRAWTO 1 9 , 3 = DRAWTO 1 9 , 23 = DRAWTO 8 , 23 = DRAWTO 
POSITION 5,0= ? #6;RQQM 
GOSUB 1 0000+ROOM* 1 00 
TIME=650 


THEN 7000 


= IF TIME=0 THEN 6000 

ST<8> = YR=YR-:.ST=10 OR ST=6 OR ST=14) 

= PLOT X, Y = X==X+XR = Y==Y+YR = COLOR 35 = PLO 


5000 

500 1 

5002 

5005 

5006 

50 1 0 

5011 
5020 
6000 
60 1 0 
6011 
6012 
68 1 3 

6014 

6015 

6016 
6017 
6020 
6030 
7000 

7010 

7011 
7020 
7030 


II 


0, 3 


RETURN 

L„ I V=L I V- 1 = IF. L I V< 0 
FOR W==23 TO 4 STEP 
SOUND 0,U+40,8, 15 
FOR Q=0 TO 58= HEXT 
HEXT W 

SOUND 0,0, 8,0 
COLOR 6 = PLOT 0 , 3 = DRAWTO 
FÜR T==0 TO 60 = HEXT T 
GOL==0 = BAL=0 
POSITION 6,1= ? #6 ; L I V 
GOSUB 5001= GOTO 1061 
F-P+10 = POSITION 14, 1 =? 
COLOR 37= PLOT X,Y 
COLOR 32= PLOT X+XR, Y+YR 
FÜR 1=15 TO 0 STEP -0.4 


THEN 12508 
-1= COLOR 7= 

Q 


19,3 


PLOT 0,W = DRAWTO 19, W 


#6, P 


SOUND 0, 152, 12,1= FOR W==l TO 28 = HEXT W 


FOR 


1=30 TO 18 STEP 
1= SOUND 8,0, 0,0= SOUND 1 


-8.5= SOUND 

, 0 , 0,0 


0,1,12,10 = SOUND 1,1,4,10 = SOUND 2 , 1 ,2,10 = HEXT 


7034 SOUND 2, 0,0,8 

7035 COLOR 35= PLOT X,Y 
7040 GOL=GOL+ 1 

7045 BAL=GOL 

7047 IF BAL=ROOM THEN GOL=0 

7048 IF BAL=10 THEN GOTO 12888 
7050 IF BAL==ROÜM THEN GOTO 1050 


■ 




H 


HHB 


RH 
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7060 IF BRLCROQM THEN COLOR 32 = PLOT X,Y 
7070 IF BRL< RÖOM THEN 1070 
7080 IF BRL==10 THEN 12000 

8000 LIV==LIV--1 : IF LIV<0 THEN 12500 

8001 COLOR 36= PLOT X, Y 

8002 POS 1 7 I OH 6 , 1 = ? #6 ,i L I V 

8003 GÜL-0 

8004 BRL=0 

SO 1 0 FOR 7=0 TO 50 = SOUND 0 , 200+RND< 0 >*50 , 6 ,15 = NEXT T = SOUND 0 , 0 , 0 , 0 

8011 GOSUB 5001= GOTO 1061 

101.00 COLOR 162 

10110 FOR 1=4 TO 20 STEP 3 

1 0 1 20 PLOT 1 , 6 = DRRWTO 1,15+1 NIC RNDC 0 >*5 > = NEXT I 

10121 COLOR 1 = PLOT 1 5 , 22 
10130 RETURN 

10200 COLOR 162= FOR 1=2 TO 19= PLOT 1,5= NEXT I 

1 020 1 PLOT 0,7 = DRRWTO 1 6 , 7 = DRRWTO 1 6 , 1 5 = DRRWTO 7,15 = DRRWTO 7 . 9 

10202 COLOR 1 = PLOT 10, 11= PLOT 4,22 

10203 RETURN 
10380 COLOR 162 

10801 PLOT 14, 5= DRRWTO 14, 10= DRRWTO 17,10 
1 0303 PLOT 1,15 = DRRWTO 6 , 1 5 = PLOT 6 ,15 = DRRWTO 6 . 20 
1. 0304 COLOR 1 = PLOT 7,8 = PLOT 16,8 = PLOT 3 , 1 7 

1 0305 COLOR 1 62 = PLOT 2,5 = DRRWTO 1 9 , 5 = PLOT 9,5 = DRRWTO 9,10 = PLOT 2,5 = DRRWTO 6,10 

10306 RETURN 

10400 COLOR 162 

10401 FOR 1=0 TO 16= PLOT 1,8= NEXT I 

10402 PLOT 0,10= DRRWTO 6, 10= DRRWTO 6, 15= PLOT 6, 15= DRRWTO 4,15 

1 0403 PLOT 8,8 = DRRWTO 8,12 = PLOT 8,14 = DRRWTO 8 , 20 = PLOT 8 , 22 

1 0404 PLOT 11,10 = DRRWTO 16,1 0 = DRRWTO 16,15 = PLOT 16,15 = DRRWTO 14,15 = PLOT 11.15 = DR 
RWTÖ 11,10 

1 0405 COLOR 1 = PLOT 2,5 = PLOT 4,12 = PLOT 8,21= PLOT 18.12 

10406 COLOR 162= PLOT 0,7= DRRWTO 5, 7= PLOT 5, 7= DRRWTO 5.5 

10407 RETURN 

10500 COLOR 162= PLOT 0,7= DRRWTO 5, 7= PLOT 5, 7= DRRWTO 5,5 

1 050 1 FOR I =0 TO 1 4 = PLOT 1,8 = NEXT I = PLOT 17,8 = DRRWTO 19.8 

10502 PLOT 14, 8= DRRWTO 14,9 

1 0503 PLOT 4 ,10 = DRRWTO 14,10 = DRRWTO 1 4 , 20 = PLOT 1 4 , 20 = DRRWTO 9,20 = PLOT 9.20 = DPfiWT 
0 9, 19= PLOT 9, 16= DRRWTO 9,10 

1 0504 PLOT 6,20 = DRRWTO 4 , 20 = DRRWT 0 4,10 = PLOT 4 , 1 0 = DRRWTO 4.10 = PLOT 7 ,10 = DRRWTO 9 
.10 ' 

1 0505 PLOT 9 , 1 @ = DRRWTO 11,10 = PLOT 14,10 

10506 PLOT 6, 20= DRRWTO 6,23 

1 0507 COLOR 1 = PLOT 3,5 = PLOT 12,18 = PLOT 12,12 = PLOT 7,18 = PLOT 7-12 
10509 RETURN 

1 0600 COLOR 1 62 = PLOT 1 4 , 22 = DRRWTO 14,18 = PLOT 14,1 8 = DRRWTO 1 7 , 1 8 

1 060 1 PLOT 1 2 , 3 = DRRWTO 12,12 = PLOT 12,14 = DRRWTO 12,19 = PLOT 12,21= PLOT 12,22 

1 0602 PLOT 7 , 3 = DRRWTO 7 ,12 = PLOT 7,14 = DRRWTO 7,19 = PLOT 7 ,21= PLOT 7 , 22 

1. 0603 PLOT 5,3 = DRRWTO 5,17 = PLOT 5 , 23 = DRRWTO 5,21= PLOT 5,21= DRRWTO 7 , 2 1 

1 0604 COLOR 1 = PLOT 1 6 , 20 = PLOT 9 ,10 = PLOT 9 , 22 = PLOT 1 2 , 20 = PLOT 3,6 = PI OT 3 , 22 

10605 RETURN 

10700 COLOR 162= PLOT 4, 5= DRRWTO 17,5 

10701 PLOT 0,7= DRRWTO 15,7 

10702 PLOT 4, 9= DRRWTO 17, 9= PLOT 17, 6= PLOT 17, 7= PLOT 17.8 

1 0703 PLOT 0,11= DRRWTO 15,11= PLOT 17,11 

10704 PLOT 4, 13= DRRWTO 17,13 

1 0705 PLOT 0 ,15 = DRRWTO 15,15 = PLOT 17,15 
1.0706 PLOT 4, 17 = DRRWTO 17,17 

1 0707 PLOT 0 ,19= DRRWTO 15,19= PLOT 17,19 

1 0708 PLOT 4,21= DRRWTO 17,21 

1 0709 COLOR 1 = PLOT 1 6 , 6 = PLOT 16,12 = PLOT 1 6 , 20 = PLOT 1,10 = PLOT 1,14 = PLOT 1,18 = PL. OT 
18.7 

1 07 1 0 COLOR 1 62 = PLOT 17,1 0 = PLOT 17,12 = PLOT 17,14 = PLOT 1 7 ,16 = PLOT 17,18 = PLOT 17,2 
0 

10711. COLOR 162 = PLOT 18,5 
10712 RETURN 
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1 0800 COLOR 1 62 : PLOT 2 .• 5 : DRRWTO 1 7 , 5 : F'LÖT 17,7 = DRflWTO 1 7 .• 2 1 ! PLOT 17 , 2 1 ! DRRWTO 6 .. 
21 ! PI OT 9 ..22 

1 080 1 PLOT 4.-21= DRRWTO 2 .-21= PLOT 2,21= DRflWTO 2 , 5 

10802 FOR 1=7 TO 19 = PLOT 4,1= DRRWTO 8,1= NEXT I 

10803 FOR 1=7 TO 1 1 = PLOT 10,1= DRRWTO 15,1= NEXT I 

1 0804 PL OT 1 0 ,13 = DRRWTO 10,1 9 = PLOT 10,19 = DRRWTO 12,19 = PLOT 1 4 , 1 9 

1 0805 DRRWTO 15,19 = PLOT 15,19 = DRRWTO 15,11= PLOT 8 , 22 

1 0806 COLOR 1 = PLOT 1,4 = PLOT 1,22 = PLOT 9 , 22 = PLOT 18,22 = PLOT 1 6 , 20 

10807 PLOT 12, 12= PLOT 9, 6= PLOT 16,6 

10808 RETURN 

1 0900 COLOR 1 62 = PLOT 4 , 4 = DRRWTO 4,14 = PLOT 4 , 1 7 = DRRWTO 4 , 22 

10901 PLOT 6, 5= DRRWTO 18, 5= PLOT 15, 6= DRRWTO 15,21 

1 090? PLOT 5 , 7 = DRRWTO 13,7 = PLOT 6,9 = DRRWTO 14,9 = PLOT 5,11= DRRWTO 8,11 
1 0908 PI OT 11.11= DRRWTO 14,11= PLOT 8,12 = DRflWTO 8,14 = PLOT 11,12 = DRRWTO 11,1 6 

1 0904 PLOT 11,16 = DRflWTO 14,16 = PLOT 5,17 = DRflWTO 9,17 = PLOT 6 ,19 = DRRWTO 14,19 = PLOT 
5.21 

1 0905 DRRWTO 13,21= PLOT 16,12 = PLOT 17,12 

1 0906 COLOR 1 = PLOT 2,5 = PLOT 2,18 = PLOT 5,8 = PLOT 10,10 = PLOT 14,6 = PLOT 1 4 , 20 = PLOT 1 
7, 7= PLOT 17,16 

10907 PLOT 5, 18= RETURN 

1 1000 COLOR 162 

1 1 00 1 PLOT 2 , 5 = DRRWTO 18,5 = PLOT 11,5 = DRRWTO 1 5 , 9 = PLOT 15,9 = DRRWTO 18,9 

1 1 002 PL OT 2 , 5 = DRRWTO 6,9 = PLOT 3 , 5 = DRRWTO 6,8 = PLOT 9,5 = DRRWTO 9,8 = PLOT 10,8 

1 1 003 PLOT 11,6 = DRRWTO 1 4 , 9 = PLOT 12,8 = DRRWTO 1 3 , 9 = PLOT 12,9 

1 1 005 PLOT 1,7 = DRRWTO 7 ,13 = PLOT 1,8 = DRRWTO 6,13 = PLOT 8,13 = PLOT 9 ,13 = PLOT 8 ,10 = PL 
OT "l 0 ,10 = PLOT' 10,11= DRRWTO 12,11 

11006 PLOT 12, 11= DRRWTO 12, 19= PLOT 14, 11= DRRWTO 14, 13= PLOT 14, 13= DRRWTO 17, 13= PL 
OT 17,11 

1 1. 007 PLOT 2,16 = DRRWTO 6 ,16 = PLOT 8,17 = DRRWTO 8 , 22. = PLOT 7,18 = PLOT 6 , 2.0 = PLOT 6 , 2. 1 

11008 FOR I == 1 8 TO 20 = PLOT 0,1= DRRWTO 3,1= HEXT I=PLOT 4,20 

1 1 009 PLOT 15,19 = DRRWTO 1 5 , 22 = PLOT 17,21= PLOT 15,17 = PLOT 16,17 = PLOT 1 8 , 1 9 = DRRWTO 
18, 15 

11010 COI OR 1 = PLOT 1,4 = PLOT 8 , 6 = PLOT 1 0 , 6 = PLOT 11,9 = PLOT 18,10 = PLOT 11,12 = PLOT 1 
6. 12= PLOT 6, 19= PLOT 1,21 

11011 PLOT 18,22 

11012 RETURN 

12000 GRAPHICS 1 7 = POKE 756, PAGE 

12010 RESTORE 12030 

12011 COLOR 162= PLOT 0,0= DRRWTO 19,0= PLOT 19,0= DRRWTO 19, 23= DRflWTO 0,23= PLOT 0,2 
3= DRRWTO 0,0 

1 2020 POS I T I. ON 5,5 = ? #6 i " HER2L I CHEN " 

1 202 1 POS 1 7 I ON 4,7 = ? #6 .= " GLUECK WUNSCH " 

1 ?02? POS 1 7' I ON 3 ,15 = ? #6 " & i e haben alle" = POS I T I ON 2,16 = ? #6 > " RREUME GESCHRFE 7 " 

12023 POSITION 1,10 = ? #6, " */. X H X * X X" 

12024 READ R=IF R==-l THEN GOTO 12300 

1?0?5 PERD B = SOUND 1 , fl, 10, 15 = FOR K==l TO B = NEXT K = GOTO 12024 

1 2030 DAT fl 121, 50 , 96 , 50 ,91, 50 , 8 1 , 200 ,121, 50 , 96 , 50 ,91, 50 , 8 1 , 200 ,121, 50 , 96 , 50 ,91,5 
0,81,1 00 , 96 , 1 00 ,121,1 00 , 96 

1 2085 DATA 1 00 , 1 08 , 200 , 96 , 50 ,0,1 , 96 , 50 , 1 08 , 50 ,121,1 50 , 0,1,121, 50 , 96 , 1 00 ,81,1 00 , 0 
,1,81,50,91,150,96 

1 2040 DATA 50 ,91,50,81,100 , 96 , 1 00 ,121,180,108,100,121, 300 ,0,2,- 1 

12300 POSITION 3,22 = ? #6.;" PRESS START " 

12301 IF PEEKX. 53279 X >6 THEN 12381 

12500 GRAPHICS 17 

12501 POKE 756, PAGE = POSITION 0,0 = ? #6.;" MAUER FLUCH 

12503 POSITION 0,4 = ? #6.; "IHRE AUFGABE IST PUNKTE ZU SAMMELN. " = POSITION 8,6 = ? #6; 
"IHR PROBLEM IST DAS SIE EINE"; 

12504 ? #6.i " MAUER HINTER SICH HERZIEHEN" 

12505 POSITION 0,9 = ? #6.; "DIE SIE NICHT BERUEHREN DUERFEN. " 

12506 POSITION 0,12 = ? #6.: "ACHTEN SIE RUF DIE ZEIT, WENN SIE RUF NULL.. STEHT, WIR 
D DAS ZIMMER GEFLUHTET." 

12507 POSITION 0,22=? #6= " PRESS START " 

12588 IF PEEKX 53279 >=6 THEN GOTO 1000 
12509 IF P >H I THEN HI=P 

12518 POS I T I ON 8,19 = ? #6 ; " SCORE = " .= P ; " HI GH = " .i H I 

12511 GOTO 12508 

12512 GOTO 1800 
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Asteroids 

für den Apple II 


Dieses Programm ist vollständig in Ma- 
schinensprache geschrieben. Es schaltet 
zwischen beiden HGR Seiten hin und 
her, um eine flimmerfreie Darstellung 
zu erhalten. Das Programm ist ca. 6Kb 
lang und arbeitet normalerweise ab 
Adresse $800. Es wird hier jedoch ab 
Adresse $6000 eingegeben. Warum? 
Nun, da das Programm sehr lang ist 
und die Eingaben über Hex-Dump zu 
umständlich wäre, wurde ein Basic- 
Programm zur Eingabe geschrieben, 
welches auch gleich die Richtigkeit der 
Eingabe überprüft. So ist ein fehlerfrei- 
es Eingeben möglich. Das Programm 
muß vor dem ersten Start abgesavet 
sein, da es bei einem (unwahrscheinli- 
chen) Fehler zum tolalen Absturz kom- 


men könnte. Außerdem zerstört es das 
DOS, wenn es gestartet ist. 

Nun zur Eingabe: Das Listing (Bild 2) 
wird mit dem Eingabeprogramm (Bild 
1) eingegeben. Wie dies geschieht, steht 
in den REM’s. Das Programm wird mit 
’BRUN ASTEROIDS, A$800’ gestartet 
und erklärt sich selbst. Für alle, denen 
der englische Text zu schwer fällt, hier 
der deutsche Text: 

Steuern Sie Ihr Schiff mit Paddle (0). 
Der Button (0) kontrolliert die Bewe- 
gung. Schiessen Sie mit irgendeiner Ta- 
ste. Zerstören Sie die Meteoriten und 
die fliegenden Untertassen um Punkte 
zu erhalten. Wenn Sie von einer Unter- 


tasse oder einem Meteoriten berührt 
werden verlieren Sie ein Schiff. Das 
Spiel ist zu Ende, wenn Sie keine Schiffe 
mehr haben. Sie erhalten ein Bonus 
Schiff, wenn sie ein Feld Meteoriten 
zerstört haben. Sie verlieren ein Schiff 
wenn sie von einer Bombe der Unter- 
tassen getroffen werden. Jede neue 
Runde kommt ein Asteroid dazu. 
Übrigens, wer mit dem Button (1) 
schiessen will, der muß bei geladenem 
Programm mit dem Mini-Assembler, 
der mit ’F666G’ gestartet wird folgen- 
des Eingeben: ’BBB: LDA C062 <Re- 

turn>’ 

’$800G <RETURN>’ 

Viel Spaß mit Asteroid wünscht Joem 
Lubkoll 
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110 
120 
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140 


150 
160 
1 70 
1 80 


RLM DIESES PROGRAMM DIENT ZUR EINGABE DES PROGRAMMES" ASTEROID" 

REM TIPPEN SIE BITTE DIE 8 DATEN, DIE NACH DER ZEILENNUMMER STEHEN EI 


N 

REM DAS PROGRAMM BERECHNET DANN DIE PRUEFSUMME. VERGLEICHEN SIE DIESE 

REM MIT DER, DIE HINTER DEM LISTING STEHT. STIMMEN DIE SUMMEN UEBEREIN 

«! 

REM HABEN SIE SICH NICHT VERTIPPT. IN DIESEM FALLE DRUECKEN SIE BITTE 

REM DIE RETURN TASTE. WENN DIE SUMME FALSCH IST, DRUECKEN SIE BITTE ’ F 
SC’ 

REM UND GEBEN DIE ZEILE NEU EIN. NACH DER LETZTEN ZEILE SAVET DAS PRO 
GRAMM 

REM GLEICH AB. 

REM DIESE ZEILEN BITTE NICHT MIT ABTIPPEN. VIEL SF'ASS BEIM (FEHLERFREI 
EN) 

REM EINGEBEN WLJENSCHT: JOERN LUBKOLL 

HOME 

FÜR ADRESSE « 24576 TÜ 29400 STEP 8 

PRINT ADRESSE; TAB ( 6);":";: HTAB 10: INPUT " " ; Z 1 , Z2, Z3, Z4, Z5, Z6, Z7, 


ZG: HTAB 35; PRINT 


»» -- »l . 7 


;Z1 + Z2 + Z 3 + Z4 + Z5 + 26 + Z7 + ZS: GET Z% 


: PRINT : IF Z$ = CHR* (27) TUEN 130 
PQKE ADRESSE, ZI: POK'E ADRESSE + 1,Z2: POKE ADRESSE + 2, Z3: F'QKF ADRF 
SSE + 3 , Z 4 : POKE ADRESSE + 4,Z5: POKE ADRESSE + 5, Z6: POKE ADRESSE + 
6,Z7: POKE ADRESSE + 7,Z8 
NEXT ADRESSE 

PR I NT CHR$ ( 4 ) " BSA VE ASTERO I DS , A$6000 , L$ 1 630 " 

PRINT CHR$ (4) "LOCK ASTEROIDS" 

PRINT "NUN HABEN SIE ES GESCHAFFT" 
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24576 : 
24584 : 
24592 : 
24600 : 
24608 : 
24616 : 
24624 : 
24632 : 
24640 : 
24648 : 
24656 : 
24664 : 
24672 : 
24680 : 
24688 : 
24696 : 
24704 : 
24712 : 
24720 : 
24728 : 
24736 : 
24744 
24752 : 
24760 : 
24768 : 
24776 : 
24784 : 
24792 : 
24800 : 
24808 : 
24816 : 
24824 : 
24832 : 
24840 : 
24848 : 
24856 : 
24864 : 
24872 : 
24880 : 
24888 : 
24896 : 
24904 : 
24912 : 
24920 : 
24928 : 
24936 : 
. 24944 : 
24952 : 
24960 : 
24968 
24976 
24984 
24992 
25000 
25008 
25016 
25024 
25032 
25040 
25048 
25056 
25064 
25072 
25080 
25088 
25096 
25104 
25112 
25120 
25128 
25 136 
25144 
25152 


173.82. 192. 169.0. 133.93. 133 
94, 133, 15, 133,29, 133,81, 141 
245,22, 133, 108, 133, 110, 133, 111 
133, 103,32, 106,9,32, 148,8 

32, 100, 13,32, 191, 17,32,2 

10.32. 187. 11.32. 117. 12.32 
185, 12,32,56, 10,32, 10, 12 
32,55, 12,32, 188, 15,32, 188 

14.32.6. 15.32. 16. 17.32 

117. 14.32. 122. 19.32.0, 17 
76,32,8,32, 100, 13,32, 191 

17.32.7. 10.32. 117. 12.32 
185, 12,32,56, 10,32, 10, 12 
32,55, 12,32, 188, 15,32, 188 

14.32.6. 15.32. 16. 17.32 

98. 14.32. 122. 19.32.0. 17 

173.0. 192. 16.206.32. 106.9 

169.0. 133.93. 133.94. 173. 16 

192.76.32.8. 169.0. 133. 101 

133.5. 133.8.32. 129. 10. 169 
1.24, 133,6, 173,84, 192, 160,0 

; 177,5, 170,208, 15, 132, 101, 165 
8,24, 105,6, 133,8,32, 129 
1Ö, 76,217,8, 201 , 255,240,33 
202s, 169,5, 133, 102, 164, 101, 189 

230. 19. 145.0. 232.32. 178. 10 
198,1 02 , 208 , 243 ,32,1 29 ,10, 230 
1 0 1 , 230 , 5 , 208 , 20 1 , 230 , 6 , 208 

197. 173. 16. 192.32. 16. 17. 169 
: 186, 133,8,32, 129, 10, 165,0 

! 105,24, 133,0, 165, 110, 133,87 
: 165, 111, 133,88,32,70, 17, 169 
: 0, 133, 10, 169,96, 133,8, 169 
: 112, 133,9, 169,5, 141,245,22 
: 32, 5 1 , 19, 169, 107, 133,8, 169 
: 108, 133,9, 169,4, 141,245,22 
: 32, 51 , 19, 169,0, 141,245,22 
: 169, 121, 133,8, 169, 114, 133,9 
: 32, 212, 13, 169, 131, 133,8, 169 
: 112, 133,9,32,247, 13, 169, 141 
: 133,8, 169, 108, 133,9,32,29 
: 14, 169,0, 133,93, 133,94, 173 
: 0 , 1 92 , 20 1 , 208 , 208 ,7,32,1 06 
: 9, 173, 16, 192,96,201, 196,208 
: 238, 32, 106,9, 173, 16, 192,76 
: 83, 8, 173,80, 192, 173,87, 192 
: 2 16 , 165,94, 197, 111,240, 11, 144 
: 2 1 , 133, 111, 165,93, 133, 110,76 
: 142,9, 165,93, 197, 110, 144,6 
: 133, 110, 165,94, 133, 111,234, 169 
: 64 , 133,7,32, 104, 10,32, 100 
: 13,32, 104, 10, 169,23, 133,4 
: 160,4, 132, 100, 132,99,32, 189 
: 9 , 32 , 161, 15, 162,0,24, 169 
: 0, 157,0,21, 138, 105,7, 170 
: 1Ö5, 12, 144,243,96, 162,0, 164 
: 100,32, 144, 14, 157,3,22, 165 
:83, 157,4,22,32, 144, 14, 157 
: 6, 22, 32, 144, 14, 165,79, 157 
: 1,22, 169,0, 157,2,22, 169 
: 3, 157,0,22, 169,0, 157,5 
: 22 , 1 38 , 24 , 1 05 ,7,1 70 ,136, 208 
: 208, 169,0, 157,0,22, 138,24 
: 1 05 ,7,1 70 ,144, 244 , 230 , 1 00 , 230 
: 100,96, 173,97, 192, 16,48, 169 
: 1, 133, 106, 166, 15, 189, 159,20 
: 133,21, 189, 183,20, 133,22, 165 
: 16, 133, 18, 165,24, 133, 19, 189 
: 207, 20, 133,23, 165, 17, 133,20 
: 32, 121 , 1 1 , 165,20, 133, 17, 165 
: 18, 133, 16, 165, 19, 133,24,96 
: 165, 15, 10, 10, 10, 56,229, 15 
: 133,3, 162,7, 165, 16, 133,9 


+=975 
+=759 
+=995 
+=571 
+=419 
+=433 
+=349 
+=554 
+=164 
+=353 
+=484 
+=259 
+=349 
+=554 
+=164 
+=334 
+=734 
+=81 1 
+=7 1 1 
+=619 
+=772 
+=973 
+=445 
+=1040 
+= 1 065 
+=846 
+=1152 
+=1189 
+=812 
+=663 
+=757 
+=785 
+=718 
+=836 
+=688 
+=831 
+=679 
+=856 
+=867 
+=856 
+=621 
+=809 
+=954 
+=1091 
+=842 
+=988 
+=1178 
+=842 
+=866 
+=1149 
+=482 • 
+=488 
+=848 
+=572 
+=598 
+=926 
+=637 
+=613 
+=619 
+=542 
+=513 
+=810 
+=718 
+=1230 
+=891 
+=789 
+=866 
+=697 
+=718 
+=664 
+=604 
+=510 
+=628 


25160 
25168 
25176 
25184 
25192 
25200 
25208 
25216 
25224 
25232 
25240 
25248 
25256 
25264 : 
25272 : 
25280 : 
25288 : 
25296 : 
25304 : 
25312 : 
25320 : 
25328 : 
25336 : 
25344 : 
25352 : 
25360 : 
25368 : 
25376 : 
25384 : 
25392 : 
25400 : 
25408 : 
25416 : 
25424 : 
25432 : 
25440 : 
25448 : 
25456 : 
25464 ; 
25472 : 
25480 
25488 
25496 
25504 
25512 
25520 
25528 
25536 
25544 
25552 
25560 
25568 
25576 
25584 
25592 : 
25600 : 
25608 : 
25616 : 
25624 : 
25632 : 
25640 : 
25648 : 
25656 : 
25664 : 
25672 : 
25680 : 
25688 : 
25696 : 
25704 : 
25712 : 
25720 : 

OCT.79Q - 
J / w u 

25736 : 


: 165,24, 133, 10, 165, 17, 133,8 
: 32,. 129, 10,32,253, 10, 160,0 
: 177,3, 133, 12,32,66, 11,32 
: 1 78 , 1 0 , 230 , 3 , 202 , 208 ,239,96 
: 165,7, 141,118, 10, 162,32, 160 
: 0, 132,29, 152, 153,0,64,200 
: 208 , 250 , 238 ,118,10, 202 , 208 ,244 
: 96, 165,7, 133, 1, 169,0, 133 
: 0, 165,8,72, 10, 10,41,28 
: 5, 1, 133, 1, 104,74,72,74 
: 74 , 72 , 74 , 1 02 , 0 , 4 1 , 3 , 5 
: 1 , 133, 1 , 104,41, 24,5,0 
: 133,0, 104,41,96,5, 0 , 1 33 
: 0, 96, 165, 1,72,41,227, 133 
: 1, 104,41,28,201,28,240,7 
: 1 05 ,4,5, 1, 1 , 1,96, 16*j 

: 1,72,41,252, 133, 1,104,6 
0,42,41,7,201,7,240, 10 

105 . 1 . 74 . 102 . 0 . 5 . 1. 133 

1 . 96 . 70 . 0 . 165 . 0 . 72.41 

135 . 133 . 0 . 104 . 41 . 96 . 105.32 

72 . 5 . 0 . 133 . 0 . 104 . 74.74 

5 . 0 , 1 , 0 , 96 , 165 , 9 , / 

41 , 7 , 133 , 11 , 104 , 70 , 10, 106 

74 . 74 . 133 . 9 . 96 . 169 . 0 . 133 
82 , 165 , 11 , 133 , 14 , 240 , 18,6 
12 , 38 , 13 , 38 , 82 , 198 , 14,208 
246 , 70 , 12 , 6 , 13 , 38 , 82,70 

13 . 164 . 9 . 165 . 12 . 17 . 0 . 145 
0 , 200 , 165 , 13 , 17 , 0 , 145,0 

200 . 165 . 82 . 17 . 0 . 145 . 0.76 

101 . 11 . 169 . 0 . 133 . 13 . 165.11 
133 .', 14 , 240 , 10 , 6 , 12 , 38 , 13 
198 , 14 , 208 , 248 , 70 , 12 , 164,9 

165 . 12 . 17 . 0 . 145 . 0 . 200. 165 

13 . 17 . 0 . 145 . 0 . 164 . 29 , 192 

i 255 , 240 , 13 , 165 , 0 , 24 , 101,9 
: 145 , 25 , 165 , 1 , 145 , 27 , 230,29 
: 96 , 165 , 18 , 24 , 101 , 21 , 133, 18 
: 165 , 19 , 101 , 22 , 133 , 19 , 240,26 
! 10 , 144 , 11 , 169 , 1 , 133 , 19, 169 
: 56 , 133 , 18 , 76 , 162 , 11 , 165, 18 
: 201 , 56 , 144 , 6 , 169 , 0 , 133, 18 
; 133 , 19 , 165 , 20 , 24 , 101 , 23, 133 
: 20 , 201 , 176 , 144 , 5 , 169 , 8, 133 
i 20 , 96 , 201 , 8 , 176 , 4 , 169, 176 
: 133 , 20 , 96 , 173 , 0 , 192 , 48, 1 
: 96 , 162 , 0 , 173 , 16 , 192 , 189,0 
: 21 , 208 , 53 , 169 , 32 , 157 , 0,21 
: 165 , 16 , 105 , 4 , 157 , 1 , 21, 165 
: 24 , 105 , 0 , 157 , 2 , 21 , 164, 15 
: 185 , 159 , 20 , 10 , 157 , 3 , 21, 185 
: 183 , 20 , 157 , 4 , 21 , 165 , 17, 105 
: 3 . 157 , 5 , 21 , 185 , 207 , 20, 10 
: 157 , 6 , 21 , 169 , 2 , 133 , 107,96 
: 1 38 , 24 , 1 05 , 7 , 170 , 20 1 , 42, 208 
: 189 , 96 , 162 , 0 , 189 , 0 , 21,240 
: 28 , 189 , 1 , 21 , 133 , 9 , 189,2 
: 21 , 133 , 10 , 189 , 5 , 21 , 133,8 
: 32 , 129 , 10 , 32 , 253 , 10 , 169,3 
: 133 , 12 , 32 , 66 , 11 , 138 , 24 , 105 
: 7 , 170 , 105 , 7 , 144 , 214 , 96, 162 
: 0 , 1 89 , 0 , 22 , 240 , 45 , 189,1 
: 22 , 133 , 9 , 189 , 2 , 22 , 133, 10 
s 189 , 5 , 22 , 133 , 8 , 134 , 84 , 189 
0 , 22 , 201 , 3 , 208 , 6 , 32,29 
14 , 76 , 105 , 12 , 201 , 2 , 208,6 
32 , 247 , 13 , 76 , 105 , 12 , 32,212 
13 , 166 , 84 , 138 , 24 , 105 , 7, 170 

201 . 245 . 144 . 197 . 96 . 162 . 0 . 189 
0 , 21 , 240 , 51 , 189 , 1 , 21, 133 
18 , 189 , 2 , 21 , 133 , 19 , 189,3 
21 , 133 , 21 , 189 , 4 , 21 , 133,22 


+=655 
+=626 
+=466 
+=1166 
+=795 
+=730 
+=1478 
+=704 
+=334 
+=464 
+=37 1 
+=309 
+=512 
+=735 
+=650 
+= 51 0 
+=610 
+=548 
+=421 
+=445 
+=646 
+=462 
+=480 
+=482 
+=688 
+=669 
+ =6 U 3 
+=537 
+=525 
+=540 
+=685 
+=603 
+=466 
+=923 
+=704 
+=560 
+=807 
+=767 
+=576 
+=725 
+=656 
+=639 
+=727 
+=618 
+=856 
+=850 
+=663 
+=828 
+=661 
+=634 
+ 4 8 8 
+=740 
+=672 
+=608 
+=691 
+=895 
+=897 
+=572 
+=520 
+=638 
+=521 
+=905 
+=686 
+=520 
+=764 
+=501 
+=624 
+=729 
+=707 
+=1234 
+=656 
+=574 
+=544 
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25744 : 189 , 5 , 21 , 133 , 20 , 189 , 6,21 
25752 : 133 , 23 , 32 , 121 , 11 , 165 , 18 , 157 
25760 : 1 , 21 , 165 , 19 , 157 , 2 , 21, 165 
25768 : 20 , 157 , 5 , 21 , 222 , 0 , 21, 138 
25776 : 24 , 105 , 7 , 170 , 105 , 7 , 144 , 191 
25784 : 96 , 162 , 0 , 189 , 0 , 22 , 208,3 
25792 : 76 , 75 , 13 , 165 , 1 03 , 201 , 16 , 208 
25800 : 82 , 165 , 24 , 74 , 165 , 16 , 106, 133 
25808 : 14 , 189 , 2 , 22 , 74 , 189 , 1,22 
25816 : 106 , 197 , 14 , 176 , 17 , 32 , 144 , 14 
25824 : 165 , 79 , 41 , 3 , 157 , 3 , 22 , 169 
25832 : 0 , 157 , 4 , 22 , 240 , 15 , 32 , 144 
25840 : 14 , 165 , 79 , 9 , 252 , 157 , 3,22 
25848 : 169 , 255 , 157 , 4 , 22 , 189 , 5,22 
25856 : 197 , 17 , 176 , 13 , 32 , 144 , 14 , 165 
25864 : 79 , 4 1 , 3 , 1 ' 57 , 6 , 22 , 76,27 
25872 : 13 , 32 , 144 , 14 , 165 , 79 , 9,252 
25880 : 157 , 6 , 22 , 189 , 1 , 22 , 133, 18 
25888 : 189 , 2 , 22 , 133 , 19 , 189 , 3,22 
25896 : 133 , 21 , 189 , 4 , 22 , 133 , 22 , 189 
25904 : 5 , 22 , 133 , 20 , 189 , 6 , 22 , 133 
25912 : 23 , 32 , 121 , 11 , 165 , 18 , 157, 1 
25920 : 22 , 165 , 19 , 157 , 2 , 22 , 165,20 
25928 : 157 , 5 , 22 , 138 , 24 , 105 , 7 , 170 
25936 : 201 , 245 , 176 , 3 , 76 , 187 , 12, 165 
25944 : 1 03 , 201 , 16 , 208 , 4 , 169 , 0 , 1 33 
25952 : 1 03 , 230 , 103 , 96 , 165 , 7 , 201,32 
25960 : 240 , 25 , i 73 , 85 , 1 92 , 1 69 , 0 , 1 33 
25968 : 25 , 133 , 27 , 169 , 4 , 133 , 26 , 169 
25976 : 5 , 133 , 28 , 169 , 32 , 133 , 7,32 
25984 : 156 , 13 , 96 , 173 , 84 , 192 , 169,0 
25992 : 133 , 25 , 133 , 27 , 169 , 6 , 133,26 
26000 : 1 69 , 7 , 1 33 , 28 , 1 69 , 64 , 1 33 , 7 
26008 : 32 , i . 56 , 1 3 , 96 , 1 65 , 8 1 , 1 33 , 30 
26016 : 165 , 29 , 133 , 81 , 165 , 30 , 240,7 
26024 : 20 1 , 255 , 208 , 4 , 32 , 104 , 10,96 
26032 : 1 98 , 30 , 8 , 164 , 30 , 177 , 25,1 33 
26040 : 112 , 177 , 27 , 133 , 113 , 169 , 0, 168 
26048 : 1 45 , 1 1 2 , 200 , 145 , 112 , 200 , 145,1 
26056 : 40 , 208 , 229 , 165 , 29 , 133 , 30,169 
26064 : 0 , 1 33 , 29 , 96 , 1 73 , 243 , 1 3 , 1 33 
26072 : 12 , 32 , 129 , 10 , 32 , 253 , 10,32 
26080 : 66 , 11 , 162 , 253 , 189 , 247 , 12, 133 
26088 : 12 , 32 , 178 , 10 , 32 , 66 , 11,232 
6096 : 208 , 242 , 96 , 6 , 9 , 9 , 6,173 


+=584 

+=660 

+=551 

+=584 

y Cj -Tj 
■+*“680 
+=857 
+=765 
+=513 
+=700 
+=639 
+=614 
+=701 
+=823 
+=758 
+=411 
+=708 
+=548 
+=579 
+=713 
+=530 
+=528 
+=572 
+=628 
+=1065 
+=834 
+=937 
+=1017 
+=686 
+=539 
+=883 


26104 : 


2 , 14 ;, 133 , 12 , 32 , 129 , 10 , 


26112 : 253 , 10 , 32 , 66 , 11 , 162 , 250, 189 
26120 : 29 , 13 , 133 , 12 , 32 , 178 , 10,32 
26128 : 66 , 11 , 232 , 208 , 242 , 96 , 28, 18 
26136 : 97 , 65 , 65 , 73 , 54 , 173 , 70, 14 
26144 : 133 , 12 , 173 , B 4 , 14 , 133 , 13,32 
26152 : 253 , 10 , 32 , 129 , 10 , 32 , 13, 11 
26160 : 162 , 243 , 189 , 84 , 13 , 133 , 12, 189 
26168 : 98 , 13 , 133 , 13 , 32 , 178 , 10,32 
26176 : 13 , 11 , 232 , 208 , 237 , 96 , 112,8 
26184 : 10 , 13 , 1 , 1 , 3 , 4 , 4 , 4 
26192 : 6 , 1 , 57 , 70 , 56 , 69 , 66,96 
26200 : 16 , 32 , 32 , 16 , 32 , 64 , 66,70 
26208 : 90 , 33 , 32 , 144 , 14 , 165 , 79,201 
26216 : 24 , 176 , 2 , 133 , 15 , 201 , 48, 176 
26224 : 3 , 32 , 193 , 11 , 96 , 173 , 112, 192 
26232 : 160 , 0 , 173 , 100 , 192 , 16 , 14,200 
26240 : 192 , 24 , 176 , 244 , 162 , 7 , 202,234 
26248 : 208 , 252 , 76 , 122 , 14 , 132 , 15,96 
26256 : 165 , 109 , 240 , 5 , 173 , 48 , 192, 198 
26264 : 109 , 165 , 79 , 72 , 101 , 78 , 133, 79 
26272 : 104 , 133 , 78 , 165 , 79 , 42 , 42,42 
26280 : 41 , 3 , 144 , 9 , 73 , 255 , 72, 169 
26288 : 255 , 133 , 83 , 104 , 96 , 72 , 169,0 
26296 : 1 33 , 83 , 1 04 , 96 , 1 62 , 0 , 1 88 , 0 
26304 : 22 , 240 , 57 , 185 , 10 , 17 , 133,84 
26312 : 165 , 17 , 24 , 105 , 3 , 221 , 5,22 
26320 : 144 , 42 , 229 , 84 , 221 , 5 , 22, 176 


+ 
+; 
+ 
+ : 
+ : 

12 + : 
+ : 

+ : 

+ ■ 

+ : 

+ ■■ 

+ : 
+ : 
+ : 


= 710 

=706 

=850 

=910 

=765 

=899 

= 1171 

= 1 003 

=820 

=510 

= 1073 

=573 

=749 

=384 

=973 

=439 

=901 

=611 

=594 

=490 

= 1025 

=509 

=917 

=40 

=421 

=328 

=758 

=775 

=812 

=855 

= 1241 

=915 

= 1130 

=816 

=685 

766 

912 

766 

748 

562 

923 


26328 : 35 , 165 , 24 , 74 , 165 , 16 , 106,24 
26336 : 105 , 3 , 133 , 14 , 189 , 2 , 22,74 
26344 : 189 , 1 , 22 , 106 , 197 , 14 , 176, 12 
26352 : 70 , 84 , 24 , 101 , 84 , 197 , 14, 144 
26360 : 3 , 76 , 65 , 15 , 138 , 24 , 105,7 
26368 : 170 , 105 , 7 , 144 , 185 , 96 , 162,42 
26376 : 189 , 0 , 21 , 240 , 42 , 165 , 24,74 
26384 : 165 , 16 , 106 , 133 , 14 , 189 , 2,21 
26392 : 74 , 189 , 1 , 21 , 106 , 197 , 14, 144 
26400 : 22 , 233 , 4 , 197 , 14 , 176 , 16 , 189 
26408 : 5 , 21 , 197 , 17 , 144 , 9 , 233,7 
26416 : 197 , 17 , 176 , 3 , 76 , 65 , 15, 138 
26424 : 24 , 105 , 7 , 170 , 20 1 , 84 , 208 , 200 , 
26432 : 96 , 162 , 0 , 169 , 32 , 157 , 0,21 
26440 : 165 , 16 , 157 , 1 , 21 , 165 , 24, 157 
26448 : 2 , 21 , 165 , 17 , 157 , 5 , 21,32 
26456 : 144 , 14 , 157 , 6 , 21 , 32 , 144, 14 
26464 : 157 , 3 , 21 , 165 , 83 , 157 , 4,21 
26472 :. 138 , 24 , 105 , 7 , 170 , 105 , 7, 144 
26480 : 210 , 169 , 64 , 133 , 15 , 32 , 117, }2 
26488 : 32 , 185 , 12 , 32 , 10 , 12 , 32,55 
26496 : 12 , 32 , 16 , 17 , 32 , 122 , 19,32 
26504 : 191 , 17 , 32 , 100 , 13 , 165 , 15,201 
26512 : 48 , 144 , 6 , 165 , 15 , 10 , 10, 133 
26520 : 109 , 234 , 198 , 15 , 208 , 215 , 173, 16 
26528 : 192 , 165 , 99 , 56 , 208 , 5 , 104, 104 
26536 : 76 , 26 , 8 , 233 , 1 , 133 , 99, 169 
26544 : 160 , 133 , 16 , 169 , 0 , 133 , 24, 169 
26552 : 96 , 133 , 17 , 96 , 162 , 0 , 160,0 
26560 : 189 , 0 , 21 , 240 , 72 , 185 , 0,22 
26568 : 240 , 58 , 132 , 14 , 168 , 185 , 10, 17 
26576 : 133 , 84 , 164 , 14 , 189 , 5 , 21,217 
26584 : 5 , 22 , 1 44 , 40 , 229 , 84 , 217,5 
26592 : 22 , 176 , 33 , 189 , 2 , 21 , 74,189 
26600 : 1 , 21 , 106 , 133 , 14 , 185 , 2,22 
26608 : 74 , 185 , 1 , 22 , 106 , 197 , 14, 176 
26616 : 11 , 70 , 84 , 101 , 84 , 197 , 14, 144 
26624 : 3 , 76 , 23 , 16 , 152 , 24 , 105,7 
26632 : 168 , 105 , 7 , 144 , 184 , 138 , 24, 105 
26640 : 7 , 1 70 , 20 1 , 84 , 208 , 168 , 96,169 
26648 : 0 , 157 , 0 , 21 , 132 , 86 , 134,85 
26656 : 166 , 86 , 189 , 0 , 22 , 201 , 4 , 144 
26664 : 3 , 76 , 220 , 16 , 234 , 169 , 4,56 
26672 : 253 , 0 , 22 , 248 , 24 , 101 , 93 , 133 
26680 : 93 , 165 , 94 , 105 , 0 , 133 , 94,216 
26688 : 222 , 0 , 22 , 240 , 77 , 32 , 144 , 14 
26696 : 157 , 3 , 22 , 165 , 83 , 157 , 4,22 
26704 : 32 , 144 , 14 , 141 , 6 , 22 , 160,0 
26712 : 185 , 0 , 22 , 208 , 44 , 189 , 0,22 
26720 : 153 , 0 , 22 , 189 , 1 , 22 , 153, 1 
26728 : 22 , 189 , 2 , 22 , 153 , 2 , 22, 189 
26736 : 5 , 22 , 153 , 5 , 22 , 32 , 144, 14 
26744 : 153 , 3 , 22 , 165 , 83 , 153 , 4,22 
26752 : 32 , 144 , 14 , 153 , 6 , 22 , 76 , 146 
26760 : 16 , 152 , 24 , 105 , 7 , 168 , 201,245 
26768 : 208 , 198 , 162 , 84 , 169 , 16 , 133, 14 
26776 : 189 , 0 , 21 , 208 , 44 , 169 , 5, 157 
26784 : 0 , 21 , 185 , 5 , 22 , 157 , 5,21 
26792 : 185 , 1 , 22 , 157 , 1 , 21 , 185,2 


?, 157 , 2 , 21 , 32 , 144 , 14 , 157 


26800 : 

26808 : 6 , 21 , 32 , 144 , 14 , 157 , 3,21 
26816 : 165 , 83 , 157 , 4 , 21 , 198 , 14,240 
26824 : 9 , 138 , 24 , 105 , 7 , 170 , 105,7 
26832 : 144 , 198 , 160 , 0 , 165 , 85 , 24, 105 
26840 : 7 , 133 , 85 , 96 , 166 , 85 , 224,42 
26848 : 144 , 6 , 169 , 32 , 157 , 0 , 21,96 
26856 : 185 , 0 , 22 , 248 , 24 , 101 , 93, 133 
26864 : 93 , 165 , 94 , 105 , 0 , 133 , 94 , 216 
26872 : 169 , 0 , 153 , 0 , 22 , 76 , 146, 16 
26880 : 173 , 84 , 21 , 240 , 4 , 169 , 255, 133 
26888 : 109 , 96 , 0 , 7 , 12 , 21 , 21,12 
26896 : 165 , 93 , 133 , 87 , 165 , 94 , 133,88 
26904 : 1 60 , 0 , 1 32 , 8 , 2 1 6 , 32 , 1 29 , 1 0 


+=609 
+=542 
+=717 
+=718 
+=433 
+=911 
+=755 
+=646 
+=746 
+=851 
+=633 
+=687 
+=999 
+=637 
+=706 
+=420 
+=532 
+=611 
+=700 
+=752 
+=370 
+=282 
+=734 
+=531 
+=1168 
+=933 
+=745 
+=804 
+=664 
+=729 
+=824 
+=827 
+=746 
+=706 
+=484 
+=775 
+=705 
+=406 
+=875 
+= 1 103 
+=615 
+=812 
+=778 
+=874 
+=900 
+=751 
+=613 
+=519 
+=670 
+=541 
+=601 
+=397 
+=605 
+=593 
+=918 
+=984 
+=793 
•+•=416 
+=574 
+=549 
+=398 
+=882 
+=565 
+=881 
+=838 
+=625 
+=806 
+=900 
+=582 
+=1079 
+=278 
+=958 
+=687 
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CPU-Game 


26912 : 32 , 70 , 17 , 162 , 7 , 165 , 7 , 133 
26920 : 1 , 169 , 32 , 133 , 0 , 164 , 99, 200 
26928 : 169 , 0 , 145 , 0 , 136 , 240 , 8, 189 
26936 : 83 , 23 , 145 , 0 , 136 , 208 , 251,32 
26944 : 1 78 , 1 0 , 202 , 208 , 232 , 96 , 165,88 
26952 : 74 , 74 , 74 , 74 , 133 , 14 , 10, 10 
26960 : 101 , 14 , 133 , 89 , 165 , 88 , 41 , 15 
26968 : 133 , 14 , 10 , 10 , 101 , 14 , 133,90 
26976 : 165 , 87 , 74 , 74 , 74 , 74 , 133, 14 
26984 : 10 , 10 , 101 , 14 , 133 , 91 , 165,87 
26992 : 41 , 15 , 133 , 14 , 10 , 10 , 101, 14 
27000 : 133 , 92 , 32 , 126 , 17 , 96 , 162, 5 
27008 : 1 64 , 89 , 1 85 , 230 , 19 , 160 , 0,145 
27016 : 0 , 164 , 90 , 185 , 230 , 19 , 160, 1 
27024 : 145 , 0 , 164 , 91 , 185 , 230 , 19, 160 
27032 : 2 , 145 , 0 , 164 , 92 , 185 , 230 , 19 
27040 : 1 60 , 3 , 1 45 , 0 , 202 , 8 , 189, 230 
27048 : 1 9 , 1 60 , 4 , 1 45 , 0 , 40 , 240,14 
27056 : 230 , 89 , 230 , 90 , 230 , 91 , 230 , 92 
27064 : 32 , 178 , 10 , 76 , 128 , 17 , 96, 173 
27072 : 245 , 22 , 208 , 83 , 198 , 108 , 208,78 
27080 : 32 , 144 , 14 , 240 , 73 , 74 , 144,8 
27088 : 169 , 4 , 141 , 245 , 22 , 76 , 221,17 
27096 : 169 , 5 , 141 , 245 , 22 , 32 , 144 , 14 
27104 : 165 , 83 , 208 , 17 , 141 , 246 , 22, 141 
27112 : 247 , 22 , 141 , 249 , 22 , 169 , 1,141 
27120 : 248 , 22 , 76 , 5 , 18 , 141 , 248,22 
27128 : 141 , 249 , 22 , 169 , 56 , 141 , 246,22 
27136 : 169 , 1 , 141 , 247 , 22 , 32 , 144 , 14 
27144 : 165 , 79 , 201 , 176 , 176 , 247 , 141,250 
27152 : 22 , 169 , 0 , 141 , 251 , 22 , 96, 173 
27160 : 248 , 22 , 24 , 109 , 246 , 22 , 141 , 246 
27168 : 22 , 133 , 9 , 173 , 249 , 22 , 109,247 
27176 : 22 , 141 , 247 , 22 , 133 , 10 , 240, 13 
27184 : 173 , 246 , 22 , 201 , 56 , 208 , 17, 169 
27192 : 0 , 141 , 245 , 22 , 96 , 173 , 246,22 
27200 : 208 , 6 , 1 69 , 0 , 1 4 1 , 245 , 22,96 
27208 : 1 73 , 250 , 22 , 133 , 20 , 173 , 251,22 
27216 : 133 , 23 , 32 , 162 , 11 , 165 , 20, 141 
27224 : 250 , 22 , 133 , 8 , 32 , 144 , 14,208 
27232 : 6 , 32 , 144 , 14 , 141 , 251 , 22,173 
27240 : 245 , 22 , 201 , 5 , 240 , 76 , 32 , 144 
27248 : 14 , 165 , 79 , 201 , 48 , 144 , 3,76 
27256 : 51 , 19 , 162 , 42 , 189 , 0 , 21,208 
27264 : 45 , 32 , 144 , 14 , 10 , 157 , 3,21 
27272 : 165 , 83 , 157 , 4 , 21 , 32 , 144,14 
27280 : 10 , 157 , 6 , 21 , 173 , 247 , 22, 157 
' 27288 : 2 , 21 , 173 , 246 , 22 , 157 , 1,21 
27296 : 173 , 250 , 22 , 157 , 5 , 21 , 169,32 
27304 : 157 , 0 , 21 , 76 , 51 , 19 , 138,24 
27312 : 105 , 7 , 170 , 201 , 84 , 208 , 197,76 
27320 : 51 , 19 , 162 , 42 , 189 , 0 , 21,240 
27328 : 11 , 138 , 24 , 105 , 7 , 170 , 201,84 
27336 : 208 , 242 , 240 , 103 , 165 , 24 , 74, 165 
27344 : 16 , 106 , 133 , 14 , 173 , 247 , 22,74 
27352 : 173 , 246 , 22 , 106 , 197 , 14 , 144,21 
27360 : 169 , 255 , 157 , 4 , 21 , 32 , 144 , 14 
27368 : 10 , 157 , 3 , 21 , 165 , 83 , 221,4 
27376 : 2 1 , 208 , 242 , 240 , 7 , 169 , 0,1 57 
27384 : 4 , 2 1 , 240 , 233 , 173 , 250 , 22,197 
27392 : 17 , 144 , 19 , 169 , 255 , 133 , 14,32 
27400 : 144 , 14 , IO, 157 , 6 , 21 , 165,83 
27408 : 197 , 14 , 208 , 243 , 240 , 6 , 169,0 
27416 : 133 , 14 , 240 , 235 , 173 , 246 , 22, 157 
27424 : 1 , 21 , 173 , 247 , 22 , 157 , 2,21 
27432 : 173 , 250 , 22 , 157 , 5 , 21 , 169,32 
27440 : 157 , 0 , 21 , 32 , 129 , 10 , 32,253 
27448 : 10 , 173 , 245 , 22 , 201 , 4 , 208,22 
27456 : 162 , 7 , 189 , 102 , 19 , 133 , 12, 189 
27464 : 109 , 19 , 133 , 13 , 32 , 13 , 11,32 
27472 : 178 , 10 , 202 , 208 , 237 , 96 , 162,5 
27480 : 189 , 1 16 , 19 , 133 , 12 , 32 , 66, 1 1 
27488 : 32 , 178 , 10 , 202 , 208 , 242 , 96, 192 




•+•=593 

•+•“798 

+=887 

•+•“878 

+=1179 

+=463 

+=646 

+=505 

+=695 

+=611 

'+=338 

+=663 

+=992 

+=849 

+=994 

+=837 

+=937 

+=622 

+=1282 

+=710 

+=1150 

+=729 

+=895 

+=772 

+=1023 

+=992 

+=780 

+=1046 

+=770 

+=1435 

+=874 

+=1058 

+=964 

+=828 

+=1092 

+=945 

+=887 

+=1044 

+=687 

+=811 

+=783 

+=965 

+=730 

+=692 

+=426 

+=620 

+=793 

+=643 

+=829 

+=486 

+=1048 

+=724 

+=740 

+=1221 

+=785 

+=923 

+=796 

+=664 

+=1044 

+=1140 

+=783 

+=600 

+=1077 

+=1220 

+=644 

+=829 

+=634 

+=885 

+=813 

+=362 

+=1098 

+=578 

+=1160 


27496 

27504 s 

27512 : 

27520 : 

27528 : 

27536 : 

27544 : 

27552 : 

27560 : 

27568 ; 

27576 : 

27584 : 

27592 : 

27600 : 

27608 : 

27616 : 

27624 : 

27632 : 

27640 : 

27648 : 

27656 : 

27664 : 

27672 : 

27680 : 

27688 : 

27696 : 

27704 : 

^77 j 9, 

27720 : 
27728 : 
27736 : 
27744 : 
27752 : 
27760 : 
27768 : 
27776 : 
27784 : 
27792 : 
27800 : 
27808 : 
27816 : 
27824 : 
27832 : 
27840 : 
27848 : 
27856 : 
27864 : 
27872 : 
27880 : 
27888 
27896 
27904 
27912 
27920 
27928 
27936 
27944 
27952 
27960 
27968 
27976 
27984 
27992 
28000 
28008 
28016 
28024 
28032 
28040 
28048 
28056 
28064 
I 28072 


60. 194. 1.254. 16.224.0. 15 
16,32,31,2,1,62,65,62 

20.8. 162.0. 169.0.24. 125 
0,22,72, 138, 105,7, 170, 105 
7, 104, 144,242, 10, 133, 14, 169 
50, 229, 14, 144,25, 170, 160, 8 

32. 144. 14. 165. 107.240.3. 173 
48,192, 136,208,243,202,208,2 

165. 107.240.2. 198. 107. 162.0 

1 60 .0. 189.0.21. 208 . 1 . 200 
138,24, 105,7, 170, 105,7, 144 

241. 162. 18. 192.0. 208. 1.200 

32. 144. 14. 165. 106.240.3. 173 
48 ,192, 202 , 208 , 243 ,136, 208 , 2: 

169.0. 133. 106. 165. 14.208.5 
32, 1 89 , 9 ,' 230 , 99 ,96,31, 17 

17.17.31.4.4.4.4.4 

31. 16.31. 1.31.31. 16.31 

16.31. 17. 17.31. 16. 16.31 

1.31. 16.31.31. 1.31. 17 

31.31.16.16.16.16.31.17 

31. 17.31.31. 17.31. 16.31 

7.4.28.4.7.31. 1. 1 

1.31. 17. 19.21.25. 17.31 

17.31.9. 17.31. 1.31.1 

31.31. 17.31. 17. 17.31.4 
4 l| 4 9 4 , 1 , 4 , 4 , 4 , 1 

15, 17, 17, 17, 15, 15, 17, 15 
17,15, 17, 10,4,4,4,8 

8.8.9. 14. 17.0. 31. 17 

31. 4. 4. 7. 0. 0. 0.0 

0. 0.0. 17. 17.31. 17. 17 

1 , 1 , 1 , 1 , o 1 , c* 1 , 1 , •-> 1 

1.1.31. 17.31. 1.1.17 

17. 17. 17.31.0. 0.0.0 

1. 17. 17.21.27. 17. 17. 17 

17. 10.4. 17.27.21.17. 17 
17, 17,31,4,4,31, 1,25 

17.31.17.9.7.9. 17.0 

I ry -y -y T ji "T T 

, , *-• , 5 *T , 

3 , 2 , 1 , 0 , 255 , 254 , 253 , 253 
253 , 252 , 253 , 253 , 253 , 254 , 255 , 
0,0, 0,0, 0, 0, 0,0 
0 i, 0 , 0 , 0 , 255 , 255 , 255 , 255 
255 , 255 , 255 , 255 , 255 , 255 , 255 , 

, ORT ORT ORT ORA ORR (") 1 O 

•7‘7-J , T"7T"7n 
! •-> % 9 O 9 9 •-* 9 9 99 i 

, er er '-ktr/i er ~r o«=r.T O er. er, 

! 1 9 ü 9 9 j£\j4 9 9 9 jUvJ--.* 9 

, '“irrer ORcr, oerer r>=.«=; Oernr oerer 0»=r»rr 
! J 9 4LÜÜ 9 \_J wJq 4 . J J ^ •<-- '-J 9 Ji — ) 9 j_. \_l uJ 9 

; 239 4 239 < 239 , 239 9 239 9 239 9 239 9 
: 239, 239, 239 , 239 9 239 , 239 , 239 9 
: 0,207,0, 1,0, 144,3,0 
: 111,0,254,255, 16,255,0, 175 
0,0,0, 112,2,0,239,0 
2,0, 112,2,0,79,0,253 
: 255 , 1 6 , 255 ,0,79, 0 , 253 , 255 
: 92, 252,0, 120,0,248,255, 16 
: 248,0,70,0,252,255, 123,4 
SO, 143,0,255,255, 154,254,0 
: 47,0, 252,255, 122,253,0, 111 
: 0,254, 255, 112,2,0,239,0 
: 2, 0,48, 0,0, 175,0,0 
0, 112, 2, 0,79, 0,253, 255 
122,253,0, 175,0,0,0,80 
: 1,0, 111,0,254,255, 154,254 
: 0 , 207 ,0,1,0,144,3,0 
: 111,0,254,255, 16,255,0, 143 
0,255,255, 122,253,0,47,0 
252,255, 144,3,0,79,0,253 
255, 122,253,0, 175,0,0,0 
: 154,254,0,239,0,2,0, 154 
: 254,0, 111,0,254,255,92,252 
0,47,0,252,255, 154,254,0 


38 


253 + 
+ ; 
+ : 
+ 

255 + 

239 + 

239 + 


=764 

=271 

=508 

=619 

=823 

=800 

=878 

= 1475 

=981 

=779 

=700 

= 1022 

=877 

= 1470 

=800 

=703 

=85 

= 188 

= 175 

= 159 

= 174 

=205 

=83 

= 162 

= 138 

= 179 

=86 

= 128 

=79 

= 104 

=46 

=99 

=98 

= 1 00 

=82 

= 134 

= 130 

= 1 30 

= 107 

= 1021 
= 1773 
=0 

= 1020 
=2038 
= 1271 
=23 
= 1524 
=2040 
= 1912 
= 1912 
=355 
= 1066 
=353 
=448 
= 1113 
=983 
=952 
1061 
1 040 
=862 
=225 
701 
630 
1029 
=355 
1034 
=932 
986 
805 
803 
1218 
962 
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28080 - 
28088 
28096 - ^ 
28104 
28112 
28120 
28128 


207,0, 1,0,80, 1,0,47 
0 ., 252 , 255 ,122, 253 ,0,111, 0 
54 g, 255, 112,2,0, 111,0,254 
: 255 , 92 , 252 , 0 , 15, 1,3,0 
s 154,254,0, 175, 0 , 0 ,0,1 6 
: 255, 0; 207,0, 1,0,80, 1 
0, 47, 0,252, 255, 112, 2, 0 


28136: 111,0,254,: 


28144 

28152 

28160 

28168 

28176 

28184 

28192 


0, 


!55, 1 1: 

DO 9cn 


!, 0 , 111 

, 0, 15, 1 

: 3 , 0 ,80,1, 239 , 239 , 239 , 1 4 
s3, 131,0,0,0,0,254,3 
: 1 03 , 0 , 252 , 255 , 0 ,254,3,31 
: 0,3, 0,0, 1,3,228,0 
: 254, 255,0,2,0, 149,0, 2 
80,40, 1,0, 161,0,252,255 
28200 : 63 , 254 ,0,1 82 , 0 , 255 , 255 , 80 


218208 

254,0,198, 0 , 254 , 255 , 28 , 0 



28216: 

0, 199,0,255,255,61,252,0 



28224: 

1 60 , 0 , 3 , 0 , 33 , 252 ,0,1 99 



28232: 

0,252, 255 , 40 ,0,0,247, 247 



28240: 

239, 239 , 239,239 , 0, 239 , 

239, 

239 

28248: 

239, 239, 239,0, 239, 239, 

"T (y 


:9 

28256: 

239, 239, 0,239, 239,239, 

239, 


:9 

28264: 

239 , 0 , 239 ,239,239, 239 , 

239, 

O"! 

;9 

28272: 

0, 239, 239,239,239, 239, 

239, 

0 


28280: 

239, 239, 239,239, 239,239, 0, 

2 “3 

:9 

28288: 

142, 142, 142, 142, 142,0, 

142, 

14 


28296: 

142, 142, 142, 142,0, 142, 

142, 

14 


28304 : 

239, 239,239,0,239, 239, 

239, 


9 

28312: 

239 , 239 , 0 , 239 , 239 , 239 , 

r-, -i- ^ 

OT 

9 

28320: 

238 , 0 , 238 , 238 , 238 , 238 , 

238, 


8 

28328: 

0, 238, 238, 238, 238, 238, 

238, 

0 


28336: 

175, 175,175, 175, 175, 17 

5,0, 

17 

5 

28344: 

175, 175, 175, 175, 175, 0, 

175, 

17 

5 

28352: 

247 , 247 , 247 , 247 , 0 , 247 , 

247, 

247 

28360: 

247 , 247 , 247 , 0 , 247 , 247 , 

247, 

24 

7 

28368: 

239 , 239 , 0 , 239 , 239 , 239 , 

070 
/ , 

OT 

9 

28376: 

239 , 0 , 239 , 239 , 239 , 239 , 

239, 

DT 

9 

28384 : 

0 , 239 , 239 , 239 , 239 , 239 , 

239, 

0 


28392: 

239 , 239 , 239 , 239 , 239 , 23 

9,0, 

2 “3 

9 

28400: 

239 , 239 , 239 , 239 , 239 , 0 , 

95,0 



28408: 

1 , 0 , 98 , 255 , 0 , 239 ,239,2 

39 



28416: 

8,8,28,28,20,54,99, 16 




2(jjJ424 : 

8,28,28, 22 , 27 , 49 , 32 , 32 




28432: 

28,30,27, 13,24, 128,64, 

28 



28440: 

31,27, 12, 12,0,96,29,31 




28448: 

26, 12,6,0, 1,95,58,28 




28456: 

6,3, 1,3,30, 1 20 , 30 , 3 




28464: 

1,3,6,28,58,95, 1,0 




28472: 

6, 12,26,31,29,96,0, 12 




28480 : 

12, 27,31, 28, 64, 128, 24, 

13 



28488: 

27 , 30 , 28 , 32 , 32 , 49 , 27 , 2 

o 



28496: 

28,28,8, 16,99,54,20,28 




28504: 

28,8,8, 134, 108,52,28,2 

8 




28512:8,4, 12,88, 108,60,28,2 
28520:2,24,24, 108, 124,28,2, 1 
28528 : 48 ,24,44,124, 92 , 3 , 0 , 96 
28536 : 48 , 28 ,46,1 25 , 64 , 0 , 64 , 96 
28544 : 60 ,15, 60 , 96 ,64,0,64,1 25 


28552; 
28560; 
28568: 
28576: 
28584 ; 
28592: 
28600: 
28608: 
28616: 
28624: 
28632: 
28640: 
28648: 
28656; 


46, 28, 48, 96, 0, 3,92, 124 
44,24,48, 1,2,28, 124, 108 
24,24,2,2,28, 60 , 1 08 , 88 
12,4,8,28,28,52, 108, 134 
238 , 238 , 238 , 238 , 238 , 238 , 238 , 1 4 


+= 

+= 

+= 

•+•= 

+ = 

+ = 

-h~- 

+ 


175 , 175 , 175 , 175 , 175 , 175 , 175 , 175 += 

175 . 175 . 175 . 175 . 175 . 175 . 175. 14 += 
247 , 247 , 247 , 247 , 247 , 247 , 247 , 247 += 
247 , 247 , 247 , 247 , 247 , 247 , 247,6 += 
239 , 239 , 239 , 239 , 239 , 239 , 239 , 239 += 

239 . 239 . 239 . 239 . 239 . 239 . 239 .14 += 
239 , 239 , 239 , 239 , 239 , 239 , 239 , 239 += 
239 , 239 , 239 , 239 , 239 , 239 , 239, 14 += 
239 , 239 , 239 , 239 , 239 , 239 , 239 , 239 += 


=336 
=993 
=988 
=618 
=599 
=544 
668 
=845 
=869 
“815 
“391 
“898 
=235 
=662 
=709 
= 1089 
=989 
= 1022 
=647 
= 1041 
= 1673 
= 1673 
= 1673 
= 1673 
= 1434 
= 1673 
=994 
=994 
= 1673 
= 1673 
= 1666 
= 1428 
= 1225 
= 1225 
= 1729 
= 1729 
= 1673 
= 1673 
= 1434 
= 1673 
= 1290 
= 1071 
=261 
=226 
=342 
=238 
=226 
= 196 
= 192 
=212 
=327 
=247 
=281 
=394 
=310 
=313 
431 
471 
484 
437 
379 
336 
374 
1680 
1 400 
1239 
1976 
1735 
1912 
1687 
1912 
1687 
1912 


28664 
28672 
28680 
28688 
28696 
28704 
287 1 2 
28720 
28728 
28736 
28744 
28752 
28760 
28768 
28776 
28784 
28792: 
28800: 
28808: 
28816: 
28824: 
28832: 
28840: 
28848: 
28856: 
28864: 
28872: 
28880: 
28888: 
28896: 
28904 : 
28912: 
28920: 
28928: 
28936: 
28944: 
28952: 
28960: 
28968: 
28976: 
28984: 
28992: 
29000 : 
29008 : 
29016: 
29024 : 
29032: 
29040: 
29048: 
29056 : 
29064: 
29072: 
29080: 
29088 : 
29096: 
29104: 
29112: 
29120: 
29128= 
29136: 
29144: 
29152: 
29160: 
29168: 
29176: 
29184: 
29192: 
29200: 
29208: 
29216: 
29224: 

o cp o "TD, 

29240: 


: 239 , 239 , 239 , 239 , 239 , 239 , 239 1 4 + 
: 121, 121, 121, 121, 121,51,26,56 •+ 

: 1,66,71, 121, 121, 121, 121, 121 •+ 

: 121, 121, 121, 121, 121,121,26, 126 •+ 
s 86, 141,26, 121, 131,71, 136,81 •+ 

: 51, 0,0, 121, 121, 121, 121, 121 •+ 

: 121, 121, 121,76,26,81,71,66 
: 1,86,91, 121,121,96, 101, 121 
: 106, 111,66,61, 121, 131, 146,96 
s 181, 1, 131, 131,0,0, 121, 121 
: 121, 121, 121, 146,26,71, 121, ‘141 
: 76, 91, 91, 131,71, 121, 1, 121 
: 81, 1, 121, 121,26,81,71,71 
: 66, 121, 121, 101, 1, 146,66, 121 
: 121,26, 126,86, 141, 151,0,81 
: 126,71, 121, 121, 141, 146,26, 126 
: 96, 146,81,81, 1,61, 121,56 
: 1,61,81,66, 1, 131,26, 121 
:8J. , 126,66, 146,26,81, 151, 121 
: 126,86,81, 121,76,61, 101,0 
: 181,71, 101, 121,81, 1, 121, 136 
: 86, 66, 71, 151, 121, 121,26, 126 
: 1, 1,81, 121, 121,81, 126,71 
: 121, 121,76,26,81,71,66, 1 
: 86, 91, 26, 121, 121,76,61,91 
: 0, 26, 76, 146, 56,71, 66,26 
: 121, 121,81, 1, 121, 121,26,56 
: 1,66,71, 151, 121, 101, 1, 146 
: 121, 131, 1,26,71, 121,76, 121 
: 26, 126,86, 141, 121, 156, 126,71 
;61,0, 101, 1, 146, 121,56,66 
s 76, 26 , 126, 121,86,61,81, 1 
: 121,76,61, 121,76,26,81,71 
s 66 , 1,86,91, 121, 1,66, 121 
: 26, 76, 146,56,71,66, 121, 121 
: 1,66,0, 156, 126,71,61, 121 
: 121, 101, 1, 146, 121, 121,76,66 
: 71, 121, 121, 126,86,81, 121,96 
: 101, 121,76, 121, 166,86,26,26 
; 131,71, 121, 136,66, 1, 166, 121 
: 8 1 , 126,71,0,26,76, 146,56 
: 7 1,66, 151, 121, 1 01, 1, 146, 121 
; 176,71,81, 121,76, 121,96, 1 
: 61, 146,26, 121, 121,26, 126,86 
; 141, 121, 121, 156, 126,71,61, 121 
: 121, 101, 1, 146,0,56, 131,71 
; 76, 66, 121,76, 121,26,71,81 
: 121, 1, 136, 121,76,26,81,71 
! 66 , 1,86,91,26, 151,0,0 
0,121,121,121,121,121,121,121 
121,121,121,121,121,121,121,121+= 
26,56, 1,66,71, 121,81,76 += 

96. 131.71.0. 0. 121. 121. 121 += 

121 , 121 , 121 , 121 , 121 , 121 , 121 , 121 += 

121. 121. 121. 121. 121. 121. 121. . 26 += 

1,121,141,1,86,61,81,26 += 

0,0,121,121,121,121,121,121 += 
121, 121, 121, 121, 121, 121, 121, 121+= 
121 s 121 5 121512132151,121,141 += 

1,86,61,81,26,0,0, 121 ? += 
121,121,121,121,121,121,121,121+= 
121,121,121,121,121,121,121,121+= 
121, 16, 1, 121, 141, 1,86,61 +== 

81,26,0,0, 121, 121, 121, 121 +== 
121,121,121,121,121,121,121,121+= 
121, 121, 121, 121, 121,121,11,1 += 
121, 141, 1,86,61,81,26,0 += 

0,121,121,121,121,121,121,121 += 
121,121,121,121,121,121,121,121+== 
121,121,121,6,1,121,141,1 += 

86 , 61 , 81 , 26 , 0 , 0 , 0 , 0 +== 
121,121,121,121,121,121, 126,86 += 
81, 121, 141, 121,81, 1, 121, 141 += 


==1687 

==738 

=743 

=878 

=793 

=656 

=683 

=738 

=838 

=686 

=868 

=703 

=573 

=743 

=732 

=878 

=643 

=488 

=798 

=652 

=813 

=768 

=603 

=563 

=673 

=467 

=648 

=658 

=668 

=853 

=552 

=578 

=633 

=553 

=683 

=602 

=753 

=823 

=723 

=813 

=582 

=778 

=743 

=713 

=918 

=627 

=638 

=633 

=421 

=847 

=968 

=498 

=66 1 

=968 

=873 

=518 

=726 

=968 

=768 

=376 

=968 

=968 

=548 

=591 

=968 

=738 

=517 

=847 

=968 

=633 

=254 

=938 

=808 
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CPU-Game 



HEYNE Immmm 
COMPUTER BÜCHER 


Fachbegriffe von A-Z 


Birkhäuser 


29248: 131,76, 101,121, 1,66, 121,91 +=708 

29256: 121,136, 1,66, 121,91,71, 166 +=773 

29264: 1,0, 0,0, 121, 121, 121,121 +=485 

29272: 121, 121, 121, 121, 121, 121, 121, 121+=968 
29280: 121,126,86, 176, 126, 121,26,56 +=838 

29288: 1,66,71, 121,255,0,0,0 +=514 

29296 : O , 0 , 0 , 0 , 0 , 0 , 0 , 0 +=0 

29304 : 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 +=0 

293 12:0,0, 0 , 0 , 0 , 0 , 0 , 0 +=0 

29320 : 0 , 0 , 0 , 0 , 0 , 0 , O , 0 +=0 


29328:0,0,0, 
29336 : 0 , 0 , 0 , 
29344:0,0,0, 
29352:0,0,0, 
29360 : 0 , 0 , 0 , 
29368:0, 0,0, 
29376:0, 0, 0, 
29384:0,0, 0, 
29392:0, 0,0, 
29400 : 0 , 0 , 0 , 


- ? 
o, 
o, 

0, 

0, 

0, 

0, 

0, 

o, 

0, 


0 3 O 
0 3 0 
0 3 0 
0 3 0 
0 3 0 
0 3 0 
0 3 0 
0 3 0 
0 3 0 
0 . 0 


+=(_> 
+=o 
+=o 
+=o 
+ 2=0 
+ 2=0 
+ 2=0 
+ 22:0 
+ =2 0 
+ 2=0 


CPU 


Bibliothek 


Ihr Ataricomputer muß kein 
„stummer“ ’ Diener sein. 
Zwar schweigt sich die Be- 
dienungsanleitung weitge- 
hend darüber aus, jedoch 
sollte dies nicht darüberhin- 
wegtäuschen, daß dieser 
Computer ein perfekter Mu- 
sikant ist. Wie Sie Ihre Pro- 


gramme perfektionieren, 
Soundeffekte erzeugen bzw. 
ihn als Orgel benutzen, wird 
leicht verständlich im ATA- 
RI Sound- und Musik-Buch 
von Alfred Görgens be- 
schrieben. 

Birkhäuser-Verlag Stuttgart 
(ISBN 3-7643-1658-6) 


Ein nützliches Nachschlage- 
werk zu Ihrem Computer. 
Umfassend erklärt werden 
Begriffe aus der Computer- 
welt, die vielen, die mit den 
englischen Begriffen nicht 
zurechtkommen, Klarheit 


über diese als auch über die 
Funktionsweise oder Termi- 
nologie verschaffen. 

Heyne Verlag München 
(ISBN 3-453-47041-9) 


raune 


W jk 


IN« 
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Der Schneider CPC 464 besitzt nicht nur ein 
hervorragendes Preis-/Leistungsverhältnis, 
sondern auch außergewöhnliche Graphik- und 
Soundfähigkeiten. In diesem Buch werden die 
Möglichkeiten des CPC 464 umfassend und 
leichtverständlich dargestellt. Viele nützliche 
Beispielprogramme runden den Text ab. 

CPC 464 GRAPHIK & SOUND, ca. 200 S., 
DM 39,-. 

Jetzt noch mehr Tips & Tricks - Band 2 

Auch der zweite Band von 64 Tips & Tricks 
dürfte sehr schnell ein Bestseller werden. Das 
Buch enthält eine Fülle hochkarätiger Pro- 
gramme, Anregungen und Routinen: ein um- 
fangreiches Kapitel über Softwareschutz - Be- 
fehlserweiterungen und wie man sie macht - 
Tips & Tricks zur Programmierung von Super- 
spielen - Zeiger und deren Manipulation - 
mehr übers Interrupt-Handling mit vielen Bei- 
spielen - erweiterte Hardware-Möglichkeiten - 
Betriebssysteme ins RAM kopieren und dort 



manipulieren - sowie viele weitere Program- 
me, Befehlserweiterungen und nützliche Rou- 
tinen. Wer gerne programmiert und mehr wis- 
sen will über den COMMODORE 64, der 
braucht dieses neue Buch. 

64 TIPS & TRICKS, Band 2, ca. 250 Seiten, 
DM 39,- 


DATA-BECKER 

Merowingerstr. 30 • 4000 Düsseldorf 
Telefon (02 11) 31 00 10 


Wenn Sie in der Lage sind , auch andere an Ihren Phanta- 
sien teilhaben zu lassen, versuchen Sie es doch einfach 
mal mit selbsterstellten Programmen! 

Wir suchen ständig neue, phantastische Abenteuer, span- 
nende und lustige Programme und natürlich auch Anwen- 
dersoftware. 

Wir brauchen von Ihnen: 

1) Ausführliche Spielbeschreibung 

2) Datenträger (Kassette oder Diskette) 

3) Komplettes Listing (nicht unbedingt erforderlich) 

All dies schicken Sie bitte an den Tronic-Verlag, Postfach, 3444 Wehretal 1. 
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Englisch 


Plenge 


Floppy. 

Buch 


«ssr" 

COMMODORE 6 


c °MMOD^RECom r üf n9 


ein DATA 


(aTA BECKER 


Alles 

über den 
Commodore 64 


Bnjckm ann 
Engittch Berits 


intern 


D **?roae Boctt zum 

CO*#MOOOflf64 

dokun "*rt>*n*m Schattplan 


EIN DATA BECKER BUCH 


/„Das sollte ihr erstes Buch zum commodore 64 
! CD sein. Eine sehr leicht verständliche Einführung 
ln Handhabung, Einsatz, Ausbaumöglichkelten 
und Programmierung des C64, die keinerlei 
Vorkenntnisse voraussetzt, viele Abbildungen, 
Fotos und nützliche Anwendungsbeispiele 
ergänzen den Text. Auch als Orientierung vor 
dem 64er kauf gut geeignet. 64 für ein- 
steiger, ca. 200 S., DM 29,- 

, © Dieses über 65.000mal verkaufte standard- 

Bocta Iml werk zum commodore 64 braucht jeder ernst- 

hafte Anwender. Alles über Technik, Betriebs- 
system und fortgeschrittene Programmierung 
des C64. Mit ausführlichem ROM-Listing, sorg- 
fältig dokumentierten Originalschaltplänen 
zum Ausklappen, zahlreichen Abbildungen, Schaltbildern, Blockdiagrammen 
und natürlich nützlichen Programmen. Mit diesem unentbehrlichen Buch 
lernen Sie Ihren C64 erst richtig kennen. 64 intern, ca. 350 S., DM 69,- 

© Der Bestseller zur Graphikprogrammierung des commodore 64 vom Autor 
der berühmten Supergraphik. Für Einsteiger, Fortgeschrittene und Profis. 
Bringt alles von den Grundlagen der Graphikprogrammierung über Sprites, 
Hlgh-Res-Graphik, Multicolor, Zeichensatzprogrammierung bis hin zu drei- 
dimensionaler Graphik und CAD. unzählige Superprogramme und Routinen 
zum Abtippen. DAS GRAPHIKBUCH ZUM COMMODORE 64, 295 S., DM 39.- 

© Das superbuch, das ihnen zeigt, was alles in ihrem Rekorder steckt. 

informiert detailliert und leicht verständlich über Datasette und cassetten- 
speicherung. Mit absoluten Spitzenprogrammen: Autostart, Catalog (sucht 
und lädt automatisch!), Backup von und auf Floppy, Save von Speicherberei- 
chen und das Tollste: ein neues cassetten-Betriebssystem mit dem 10-20mal 
schnelleren Fasttape. Außerdem weitere nützliche Hinweise (Kopfjustage, 
Kontroll-Lautsprecher) und Programme. DAS cassettenbuch zum 
COMMODORE 64 und VC-20, ca. 180 S., DM 29,- 

© Das über SO.OOOmal verkaufte Standardwerk zur Floppy VC-1541. Alles 
über Diskettenprogrammierung für Einsteiger, Fortgeschrittene und 
Profis. Neben grundlegenden Informationen zum dos, zu den 
Systembefehlen und Fehlermeldungen stehen mehrere Kapitel zur 
praktischen Dateiverwaltung mit der Floppy, umfangreiches, 
dokumentiertes DOS-Usting. Dazu eine Fundgrube verschieden- 
ster Programme und Hilfsroutinen, die das Buch für jeden 
Floppy-Anwender zur Pflichtlektüre machen, das grosse 
FLOPPY-BUCH, ca. 320 S., DM 49,- 

© Mit diesem Buch meistern Sie jedes Drucker-Problem. 

Ob Sekundäradressen, Schnittstellen, Steuerzeichen, 
formatierte Datenausgabe oder Graphik-Hardcopy, 
alles wird hervorragend erklärt. Selbstverständ- 
lich wieder viele nützliche Programme zum Ab- 
tippen. Außerdem wichtige Hilfen zur Drucker- 
anpassung, ein Betriebssystemlisting des 
mps 801 und ein eigenes Kapitel zum vc-1520. 

Mit diesem Buch holen Sie das Optimum aus 
Ihrem Drucker heraus. DAS GROSSE 
DRUCKERBUCH. Über 300 S., DM 49,- 


DATA 


Merowingerstr. 30 • 4000 Düsseldorf -Tel. (0211) 31 0010 




V 
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IM D UTZEND 
BI LLI GER 

ist auch Ihre Homecomputerzeitschrift 

und zwar um bis zu 25 %, 
wenn Sie sich für ein Jahresabonnement 
von 

CPU, HOMECOMPUTER 
oder CPU & HC als Kombination 

entscheiden 


Statt 66,- DM für 12 Hefte CPU oder HC zahlen 
Sie im Jahresabonnement nur 55,- DM. 
Beide Hefte im Abonnement kosten 
statt 132,- DM nur 100- DM. 

Bei Lieferung in das europäische Ausland beträgt 
das JAHRESABONNEMENT CPU oder 
HC 80,- DM (nach Übersee 1 10,- DM). 

Das KOMBINATIONSABO von CPU und 
HC 1 50,- DM (europ. Ausland). 

Übersee 200,- DM. 


Bestellgutschein 

Ja, ich möchte ins Computerleben einsteigen und bestelle deshalb 

□ Jahresabonnement von CPU (12 Hefte) 

□ Jahresabonnement von Homecomputer (12 Hefte) 

□ Kombi-Abonnement von CPU + HC (24 Hefte) 


Name/ Vorname 


Straße, Nr. Plz> Ort 

Ich wünsche folgende Zahlungsweise 
□ Bargeldlos durch Bankeinzug: 

Bankleitzahl 


Geldinstitut Konto-Nr. 

□ gegen Rechnung 

□ gegen Vorkasse 

(betreffendes bitte ankreuzen) Datum, Unterschrift 

Abonnements-Kündigungen: 

6 Wochen vor Ablauf des Jahres-Abonnements. 

Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! 

Februar 1985 


Ausschneiden und einsenden an: 

Verlagsunion 

Friedrich-Bergius-Straße 7 
Posfach 5707 

6200 Wiesbaden 


Datum, Unterschrift 



CPU Bestellkarte-Softwareservice 


Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden. 

(Ausland nur gegen Vorkasse) 

Die Zustellung erfolgt: gegen Vorkasse □ 


oder Inland per Nachnahme □ 

+ Versandkosten 

innerhalb von 1 Woche 



Entnehmen Sie bitte aus unseren Preislisten die notwendigen Angaben für Ihre Bestellung: 

Bitte liefern Sie mir: 

□ Cassette für 


n Anzahl 

System 

n Anzahl 

□ Diskette für 

System 

DM 

zum Preis von gesamt 



Name/Vorname: 

Straße, Nr.: 


PLZ/Ort: 

Datum, Unterschrift 



Februar 1985 


CPU 77 


Kassettenservice 


Software 
für Freizeit 
und Hobby 
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Das Softwaremagazin 
für Freizeit und 

Unhhv 



STOP + 4 4 NEUE AUSGABE 4 + + STOP 
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CflSSETTEN 


HQME-CE3MPUTER 


Präzise Cassetten-Mechanik 


CflSSETTEI» + DISKETTEN 


Hohe Speicherdichte 
Für alle Data-Recorder 


DflTfl-DlSK DISKETTEN 


Extreme Lebensdauer durch 



iogna tontröger Vertriebs gmbh 

nzlauer Straße 3 • Postfach 400340 • 5000 Köln 40 
lefon (02234) 74054 • Telex 889975 


magno 


H magno 

AUDIO VIDEO DATA 




zusätzliche Oxygenbeschichtung 

Zuverlässige Datensicherheit 
durch mehr als 70 chemische, 
magnetische und elektrische 
Qualitäts-Tests 







